900
How can I prevent a link to end to a specified bar
Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComAllowLinkBars of hoChart to True
		Set ComLevelCount of hoChart to 2
		Set ComPaneWidth of hoChart False to 160
		Set ComFirstVisibleDate of hoChart to "6/20/2005"
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Not-End-Linkable" to h
		Send ComAddBar of hoItems h "Unknown" "6/21/2005" "6/28/2005" Nothing Nothing
		Set ComItemBar of hoItems h "" OLEexBarCanEndLink to False
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "Task" "6/23/2005" "6/27/2005" "" Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "Task" "6/23/2005" "6/27/2005" "" Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
899
How can I prevent a link to start from a specified bar
Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComAllowLinkBars of hoChart to True
		Set ComLevelCount of hoChart to 2
		Set ComPaneWidth of hoChart False to 160
		Set ComFirstVisibleDate of hoChart to "6/20/2005"
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Not-Start-Linkable" to h
		Send ComAddBar of hoItems h "Unknown" "6/21/2005" "6/28/2005" Nothing Nothing
		Set ComItemBar of hoItems h "" OLEexBarCanStartLink to False
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "Task" "6/23/2005" "6/27/2005" "" Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "Task" "6/23/2005" "6/27/2005" "" Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
898
How can I prevent a specified bar to be linked
Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComAllowLinkBars of hoChart to True
		Set ComLevelCount of hoChart to 2
		Set ComPaneWidth of hoChart False to 160
		Set ComFirstVisibleDate of hoChart to "6/20/2005"
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Not-Linkable" to h
		Send ComAddBar of hoItems h "Unknown" "6/21/2005" "6/28/2005" Nothing Nothing
		Set ComItemBar of hoItems h "" OLEexBarCanBeLinked to False
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "Task" "6/23/2005" "6/27/2005" "" Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "Task" "6/23/2005" "6/27/2005" "" Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
897
How can I display in the chart's header only days where the week starts

Procedure OnCreate
	Forward Send OnCreate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart False to 0
		Set ComFirstVisibleDate of hoChart to "1/31/2009"
		Set ComLevelCount of hoChart to 2
		Set ComFirstWeekDay of hoChart to OLEexMonday
		Variant voLevel
		Get ComLevel of hoChart 0 to voLevel
		Handle hoLevel
		Get Create (RefClass(cComLevel)) to hoLevel
		Set pvComObject of hoLevel to voLevel
			Set ComLabel of hoLevel to "<%mmmm%> <%yyyy%>"
			Set ComAlignment of hoLevel to OLECenterAlignment
			Set ComUnit of hoLevel to OLEexMonth
		Send Destroy to hoLevel
		Variant voLevel1
		Get ComLevel of hoChart 1 to voLevel1
		Handle hoLevel1
		Get Create (RefClass(cComLevel)) to hoLevel1
		Set pvComObject of hoLevel1 to voLevel1
			Set ComUnit of hoLevel1 to OLEexDay
			Set ComFormatLabel of hoLevel1 to " (0:=weekday(dvalue)) = 1 ? '<b>' +value : '' "
		Send Destroy to hoLevel1
		Set ComUnitWidth of hoChart to 23
	Send Destroy to hoChart
End_Procedure
896
Is there any automatically way to display and change the bar's duration in the columns section

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComMarkSearchColumn to False
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
		Variant voColumn
		Get ComAdd of hoColumns "Duration" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDef of hoColumn OLEexCellValueToItemBarProperty to 513
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLESpinType
			Send Destroy to hoEditor
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComLevelCount of hoChart to 2
		Set ComFirstVisibleDate of hoChart to "1/1/2009"
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComAllowCellValueToItemBar of hoItems to True
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "Task" "1/2/2009" "1/7/2009" Nothing Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "Task" "1/4/2009" "1/9/2009" Nothing Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
895
How can I programatically move or resize a bar using spin or slider controls in the columns

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComMarkSearchColumn to False
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
		Variant voColumn
		Get ComAdd of hoColumns "Start" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDef of hoColumn OLEexCellValueToItemBarProperty to 1
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLESpinType
			Send Destroy to hoEditor
		Send Destroy to hoColumn
		Variant voColumn1
		Get ComAdd of hoColumns "End" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComDef of hoColumn1 OLEexCellValueToItemBarProperty to 2
			Variant voEditor1
			Get ComEditor of hoColumn1 to voEditor1
			Handle hoEditor1
			Get Create (RefClass(cComEditor)) to hoEditor1
			Set pvComObject of hoEditor1 to voEditor1
				Set ComEditType of hoEditor1 to OLESpinType
			Send Destroy to hoEditor1
		Send Destroy to hoColumn1
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComLevelCount of hoChart to 2
		Set ComShowEmptyBars of hoChart to 1
		Set ComFirstVisibleDate of hoChart to "1/1/2009"
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComAllowCellValueToItemBar of hoItems to True
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "Task" "1/2/2009" "1/7/2009" Nothing Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "Task" "1/4/2009" "1/9/2009" Nothing Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
894
I am trying to call the ItemBar(exBarStart) after curent ending point, and the bar is not updated. What I am doing wrong
Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart False to 64
		Set ComFirstVisibleDate of hoChart to "6/21/2005"
		Set ComShowEmptyBars of hoChart to 1
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Test" to h
		Send ComAddBar of hoItems h "Task" "6/22/2005" "6/26/2005" "" Nothing
		Send ComAddBar of hoItems h "Task" "6/27/2005" (ComItemBar(hoItems,h,"",OLEexBarEnd)) Nothing Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
893
How can change in the same time the starting and ending points of the bar
Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart False to 64
		Set ComFirstVisibleDate of hoChart to "6/21/2005"
		Set ComShowEmptyBars of hoChart to 1
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Test" to h
		Send ComAddBar of hoItems h "Task" "6/22/2005" "6/26/2005" Nothing Nothing
	Send Destroy to hoItems
	Variant voItems1
	Get ComItems to voItems1
	Handle hoItems1
	Get Create (RefClass(cComItems)) to hoItems1
	Set pvComObject of hoItems1 to voItems1
		Get ComFirstVisibleItem of hoItems1 to h
		Send ComAddBar of hoItems1 h "Task" "6/27/2005" "6/29/2005" Nothing Nothing
	Send Destroy to hoItems1
	Send ComEndUpdate
End_Procedure
892
How can I control the exBarEffort property of the bar using slider controls

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComMarkSearchColumn to False
	Set ComShowFocusRect to False
	Set ComOnResizeControl to OLEexResizeChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Tasks" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComAllowDragging of hoColumn to False
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn1
		Get ComAdd of hoColumns1 "Histogram" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComAllowDragging of hoColumn1 to False
			Set ComDef of hoColumn1 OLEexCellHasCheckBox to True
			Set ComPartialCheck of hoColumn1 to True
			Set ComAllowSizing of hoColumn1 to False
			Set ComWidth of hoColumn1 to 18
			Set ComLevelKey of hoColumn1 to 1
		Send Destroy to hoColumn1
	Send Destroy to hoColumns1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComAllowCellValueToItemBar of hoItems to True
	Send Destroy to hoItems
	Variant voColumns2
	Get ComColumns to voColumns2
	Handle hoColumns2
	Get Create (RefClass(cComColumns)) to hoColumns2
	Set pvComObject of hoColumns2 to voColumns2
		Variant voColumn2
		Get ComAdd of hoColumns2 "Effort" to voColumn2
		Handle hoColumn2
		Get Create (RefClass(cComColumn)) to hoColumn2
		Set pvComObject of hoColumn2 to voColumn2
			Set ComLevelKey of hoColumn2 to 1
			Set ComAllowDragging of hoColumn2 to False
			Set ComAllowSizing of hoColumn2 to False
			Set ComWidth of hoColumn2 to 64
			Set ComDef of hoColumn2 OLEexCellValueToItemBarProperty to 21
			Variant voEditor
			Get ComEditor of hoColumn2 to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLESliderType
				Set ComOption of hoEditor OLEexSliderWidth to -100
				Set ComOption of hoEditor OLEexSliderMax to 9
				Set ComOption of hoEditor OLEexSliderMin to 1
			Send Destroy to hoEditor
		Send Destroy to hoColumn2
	Send Destroy to hoColumns2
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComLevelCount of hoChart to 3
		Set ComNonworkingDays of hoChart to 0
		Set ComPaneWidth of hoChart False to 160
		Set ComFirstVisibleDate of hoChart to "6/20/2005"
		Set ComHistogramVisible of hoChart to True
		Set ComHistogramView of hoChart to (|CI$10000 + OLEexHistogramNoGrouping + OLEexHistogramRecLeafItems + OLEexHistogramLeafItems + OLEexHistogramUnlockedItems + OLEexHistogramCheckedItems)
		Set ComHistogramHeight of hoChart to 64
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComItem of hoBars "Task" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComHistogramCriticalColor of hoBar to (RGB(255,0,0))
				Set ComHistogramPattern of hoBar to OLEexBezierCurve
				Set ComHistogramType of hoBar to OLEexHistOverAllocation
			Send Destroy to hoBar
		Send Destroy to hoBars
	Send Destroy to hoChart
	Variant voItems1
	Get ComItems to voItems1
	Handle hoItems1
	Get Create (RefClass(cComItems)) to hoItems1
	Set pvComObject of hoItems1 to voItems1
		Variant h
		Get ComAddItem of hoItems1 "Project 1" to h
		Send ComAddBar of hoItems1 h "Summary" "6/21/2005" "7/1/2005" Nothing Nothing
		Set ComCellEditorVisible of hoItems1 h 2 to False
		Set ComCellValue of hoItems1 h 2 to ""
		Variant h1
		Get ComInsertItem of hoItems1 h "Task 1" to h1
		Send ComAddBar of hoItems1 h1 "Task" "6/21/2005" "6/28/2005" Nothing Nothing
		Set ComCellMerge of hoItems1 h1 0 to 1
		Send ComDefineSummaryBars of hoItems1 h "" h1 ""
		Get ComInsertItem of hoItems1 h "Task 2" to h1
		Send ComAddBar of hoItems1 h1 "Task" "6/23/2005" "7/1/2005" "" Nothing
		Set ComCellMerge of hoItems1 h1 0 to 1
		Send ComDefineSummaryBars of hoItems1 h "" h1 ""
		Set ComItemBar of hoItems1 h1 "" OLEexBarEffort to 5
		Get ComInsertItem of hoItems1 h "Task 3" to h1
		Send ComAddBar of hoItems1 h1 "Task" "6/25/2005" "6/27/2005" "" Nothing
		Set ComCellMerge of hoItems1 h1 0 to 1
		Send ComDefineSummaryBars of hoItems1 h "" h1 ""
		Set ComExpandItem of hoItems1 h to True
		Set ComCellState of hoItems1 h 1 to 1
		Get ComAddItem of hoItems1 "Project 2" to h
		Send ComAddBar of hoItems1 h "Summary" "3/7/2005" "7/12/2005" Nothing Nothing
		Set ComCellEditorVisible of hoItems1 h 2 to False
		Set ComCellValue of hoItems1 h 2 to ""
		Get ComInsertItem of hoItems1 h "Task 1" to h1
		Send ComAddBar of hoItems1 h1 "Task" "7/3/2005" "7/8/2005" Nothing Nothing
		Set ComCellMerge of hoItems1 h1 0 to 1
		Send ComDefineSummaryBars of hoItems1 h "" h1 ""
		Get ComInsertItem of hoItems1 h "Task 2" to h1
		Send ComAddBar of hoItems1 h1 "Task" "7/5/2005" "7/12/2005" "" Nothing
		Set ComCellMerge of hoItems1 h1 0 to 1
		Send ComDefineSummaryBars of hoItems1 h "" h1 ""
		Set ComItemBar of hoItems1 h1 "" OLEexBarEffort to 5
		Get ComInsertItem of hoItems1 h "Task 3" to h1
		Send ComAddBar of hoItems1 h1 "Task" "7/7/2005" "7/8/2005" "" Nothing
		Set ComCellMerge of hoItems1 h1 0 to 1
		Send ComDefineSummaryBars of hoItems1 h "" h1 ""
		Set ComExpandItem of hoItems1 h to True
		Set ComCellState of hoItems1 h 1 to 1
	Send Destroy to hoItems1
	Send ComEndUpdate
End_Procedure
891
How can I determine if there is any Redo operation
Procedure OnCreate
	Forward Send OnCreate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComAllowUndoRedo of hoChart to True
		Set ComLevelCount of hoChart to 2
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
	Send Destroy to hoChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Column" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 1")) "Task" "1/2/2001" "1/4/2001" Nothing Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 2")) "Task" "1/3/2001" "1/7/2001" Nothing Nothing
	Send Destroy to hoItems
	Variant v
	Variant voChart1
	Get ComChart to voChart1
	Handle hoChart1
	Get Create (RefClass(cComChart)) to hoChart1
	Set pvComObject of hoChart1 to voChart1
		Get ComCanRedo of hoChart1 to v
	Send Destroy to hoChart1
	Variant var_CanRedo
	Move v to var_CanRedo
End_Procedure
890
How can I determine if there is any Undo operation
Procedure OnCreate
	Forward Send OnCreate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComAllowUndoRedo of hoChart to True
		Set ComLevelCount of hoChart to 2
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
	Send Destroy to hoChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Column" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 1")) "Task" "1/2/2001" "1/4/2001" Nothing Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 2")) "Task" "1/3/2001" "1/7/2001" Nothing Nothing
	Send Destroy to hoItems
	Variant v
	Variant voChart1
	Get ComChart to voChart1
	Handle hoChart1
	Get Create (RefClass(cComChart)) to hoChart1
	Set pvComObject of hoChart1 to voChart1
		Get ComCanUndo of hoChart1 to v
	Send Destroy to hoChart1
	Variant var_CanUndo
	Move v to var_CanUndo
End_Procedure
889
How can I turn on the Undo/Redo feature
Procedure OnCreate
	Forward Send OnCreate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComAllowUndoRedo of hoChart to True
		Set ComLevelCount of hoChart to 2
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
	Send Destroy to hoChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Column" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 1")) "Task" "1/2/2001" "1/4/2001" Nothing Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 2")) "Task" "1/3/2001" "1/7/2001" Nothing Nothing
	Send Destroy to hoItems
End_Procedure
888
How can I disable resizing the histogram at runtime
Procedure OnCreate
	Forward Send OnCreate
	Set ComOnResizeControl to OLEexDisableHistogram
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
		Set ComHistogramVisible of hoChart to True
		Set ComHistogramHeight of hoChart to 32
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComItem of hoBars "Task" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComHistogramPattern of hoBar to OLEexPatternBDiagonal
			Send Destroy to hoBar
		Send Destroy to hoBars
	Send Destroy to hoChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Column" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 1")) "Task" "1/2/2001" "1/4/2001" Nothing Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 2")) "Task" "1/3/2001" "1/7/2001" Nothing Nothing
	Send Destroy to hoItems
End_Procedure
887
How can I display automatically the start and end dates of the bars in the columns section

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
		Variant voColumn
		Get ComAdd of hoColumns "Start" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDef of hoColumn OLEexCellValueToItemBarProperty to 1
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLEDateType
			Send Destroy to hoEditor
		Send Destroy to hoColumn
		Variant voColumn1
		Get ComAdd of hoColumns "End" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComDef of hoColumn1 OLEexCellValueToItemBarProperty to 2
			Variant voEditor1
			Get ComEditor of hoColumn1 to voEditor1
			Handle hoEditor1
			Get Create (RefClass(cComEditor)) to hoEditor1
			Set pvComObject of hoEditor1 to voEditor1
				Set ComEditType of hoEditor1 to OLEDateType
			Send Destroy to hoEditor1
		Send Destroy to hoColumn1
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "9/20/2006"
		Set ComAllowLinkBars of hoChart to True
		Set ComAllowCreateBar of hoChart to OLEexNoCreateBar
		Set ComLevelCount of hoChart to 2
		Set ComPaneWidth of hoChart False to 196
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComAllowCellValueToItemBar of hoItems to True
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "Task" "9/21/2006" "9/24/2006" Nothing Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "Task" "9/22/2006" "9/25/2006" Nothing Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 3")) "Task" "9/23/2006" "9/26/2006" Nothing Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
886
How can I enable Undo/Redo support
Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComMarkSearchColumn to False
	Set ComDrawGridLines to OLEexHLines
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
		Variant voColumn
		Get ComAdd of hoColumns "Start" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDef of hoColumn OLEexCellValueToItemBarProperty to 1
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLEDateType
			Send Destroy to hoEditor
			Set ComLevelKey of hoColumn to 1
		Send Destroy to hoColumn
		Variant voColumn1
		Get ComAdd of hoColumns "End" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComDef of hoColumn1 OLEexCellValueToItemBarProperty to 2
			Variant voEditor1
			Get ComEditor of hoColumn1 to voEditor1
			Handle hoEditor1
			Get Create (RefClass(cComEditor)) to hoEditor1
			Set pvComObject of hoEditor1 to voEditor1
				Set ComEditType of hoEditor1 to OLEDateType
			Send Destroy to hoEditor1
			Set ComLevelKey of hoColumn1 to 1
		Send Destroy to hoColumn1
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComDrawGridLines of hoChart to OLEexHLines
		Set ComFirstVisibleDate of hoChart to "9/20/2006"
		Set ComAllowLinkBars of hoChart to True
		Set ComAllowCreateBar of hoChart to OLEexNoCreateBar
		Set ComLevelCount of hoChart to 2
		Set ComPaneWidth of hoChart False to 196
		Set ComAllowUndoRedo of hoChart to True
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComAllowCellValueToItemBar of hoItems to True
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "Task" "9/21/2006" "9/24/2006" Nothing Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "Task" "9/22/2006" "9/25/2006" Nothing Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 3")) "Task" "9/23/2006" "9/26/2006" Nothing Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
885
Is there any option to update the bar's properties once the cell's value is changed ( associate the cell with bar )

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComDebug to True
	Set ComMarkSearchColumn to False
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComAllowCellValueToItemBar of hoItems to True
	Send Destroy to hoItems
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
		Variant voColumn
		Get ComAdd of hoColumns "Start" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLEDateType
			Send Destroy to hoEditor
		Send Destroy to hoColumn
		Variant voColumn1
		Get ComAdd of hoColumns "End" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Variant voEditor1
			Get ComEditor of hoColumn1 to voEditor1
			Handle hoEditor1
			Get Create (RefClass(cComEditor)) to hoEditor1
			Set pvComObject of hoEditor1 to voEditor1
				Set ComEditType of hoEditor1 to OLEDateType
			Send Destroy to hoEditor1
		Send Destroy to hoColumn1
		Get ComAdd of hoColumns "Info" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "9/20/2006"
		Set ComAllowLinkBars of hoChart to False
		Set ComAllowCreateBar of hoChart to OLEexNoCreateBar
		Set ComLevelCount of hoChart to 2
		Set ComPaneWidth of hoChart False to 224
	Send Destroy to hoChart
	Variant voItems1
	Get ComItems to voItems1
	Handle hoItems1
	Get Create (RefClass(cComItems)) to hoItems1
	Set pvComObject of hoItems1 to voItems1
		Variant h1
		Get ComInsertItem of hoItems1  "Task 1" to h1
		Send ComAddBar of hoItems1 h1 "Task" "9/21/2006" "9/23/2006" "A" "Caption"
		Set ComItemBar of hoItems1 h1 "A" OLEexBarHAlignCaption to 18
		Variant voEditor2
		Get ComCellEditor of hoItems1 h1 3 to voEditor2
		Handle hoEditor2
		Get Create (RefClass(cComEditor)) to hoEditor2
		Set pvComObject of hoEditor2 to voEditor2
			Set ComEditType of hoEditor2 to OLEEditType
		Send Destroy to hoEditor2
		Send ComCellValueToItemBar of hoItems1 h1 1 OLEexBarStart "A"
		Send ComCellValueToItemBar of hoItems1 h1 2 OLEexBarEnd "A"
		Send ComCellValueToItemBar of hoItems1 h1 3 OLEexBarCaption "A"
		Variant h2
		Get ComInsertItem of hoItems1  "Task 2" to h2
		Send ComAddBar of hoItems1 h2 "Task" "9/22/2006" "9/24/2006" "B" Nothing
		Variant voEditor3
		Get ComCellEditor of hoItems1 h2 3 to voEditor3
		Handle hoEditor3
		Get Create (RefClass(cComEditor)) to hoEditor3
		Set pvComObject of hoEditor3 to voEditor3
			Set ComEditType of hoEditor3 to OLESliderType
			Set ComOption of hoEditor3 OLEexSliderWidth to -100
		Send Destroy to hoEditor3
		Send ComCellValueToItemBar of hoItems1 h2 1 OLEexBarStart "B"
		Send ComCellValueToItemBar of hoItems1 h2 2 OLEexBarEnd "B"
		Send ComCellValueToItemBar of hoItems1 h2 3 OLEexBarTransparent "B"
		Variant h3
		Get ComInsertItem of hoItems1  "Task 3" to h3
		Send ComAddBar of hoItems1 h3 "Task" "9/23/2006" "9/25/2006" "C" Nothing
		Variant voEditor4
		Get ComCellEditor of hoItems1 h3 3 to voEditor4
		Handle hoEditor4
		Get Create (RefClass(cComEditor)) to hoEditor4
		Set pvComObject of hoEditor4 to voEditor4
			Set ComEditType of hoEditor4 to OLEDropDownType
			Send ComAddItem of hoEditor4 0 "Task" Nothing
			Send ComAddItem of hoEditor4 1 "Progress" Nothing
			Send ComAddItem of hoEditor4 2 "Project Summary" Nothing
			Send ComAddItem of hoEditor4 2 "Summary" Nothing
		Send Destroy to hoEditor4
		Send ComCellValueToItemBar of hoItems1 h3 1 OLEexBarStart "C"
		Send ComCellValueToItemBar of hoItems1 h3 2 OLEexBarEnd "C"
		Send ComCellValueToItemBar of hoItems1 h3 3 OLEexBarName "C"
	Send Destroy to hoItems1
	Send ComEndUpdate
End_Procedure
884
Is there any option to update the bar's properties once the cell's value is changed ( associate the column/cell with bars )

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComMarkSearchColumn to False
	Set ComIndent to 11
	Set ComHasLines to OLEexSolidLine
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComAllowCellValueToItemBar of hoItems to True
	Send Destroy to hoItems
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
		Variant voColumn
		Get ComAdd of hoColumns "Start" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDef of hoColumn OLEexCellValueToItemBarProperty to 1
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLEDateType
			Send Destroy to hoEditor
			Set ComLevelKey of hoColumn to 1
		Send Destroy to hoColumn
		Variant voColumn1
		Get ComAdd of hoColumns "End" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComDef of hoColumn1 OLEexCellValueToItemBarProperty to 2
			Variant voEditor1
			Get ComEditor of hoColumn1 to voEditor1
			Handle hoEditor1
			Get Create (RefClass(cComEditor)) to hoEditor1
			Set pvComObject of hoEditor1 to voEditor1
				Set ComEditType of hoEditor1 to OLEDateType
			Send Destroy to hoEditor1
			Set ComLevelKey of hoColumn1 to 1
		Send Destroy to hoColumn1
		Variant voColumn2
		Get ComAdd of hoColumns "Transparency" to voColumn2
		Handle hoColumn2
		Get Create (RefClass(cComColumn)) to hoColumn2
		Set pvComObject of hoColumn2 to voColumn2
			Set ComDef of hoColumn2 OLEexCellValueToItemBarProperty to 19
			Variant voEditor2
			Get ComEditor of hoColumn2 to voEditor2
			Handle hoEditor2
			Get Create (RefClass(cComEditor)) to hoEditor2
			Set pvComObject of hoEditor2 to voEditor2
				Set ComEditType of hoEditor2 to OLESliderType
				Set ComOption of hoEditor2 OLEexSliderWidth to -100
			Send Destroy to hoEditor2
		Send Destroy to hoColumn2
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "9/20/2006"
		Set ComAllowLinkBars of hoChart to False
		Set ComAllowCreateBar of hoChart to OLEexNoCreateBar
		Set ComLevelCount of hoChart to 2
		Set ComPaneWidth of hoChart False to 224
	Send Destroy to hoChart
	Variant voItems1
	Get ComItems to voItems1
	Handle hoItems1
	Get Create (RefClass(cComItems)) to hoItems1
	Set pvComObject of hoItems1 to voItems1
		Variant h
		Get ComAddItem of hoItems1 "Project" to h
		Send ComAddBar of hoItems1 h "Summary" "9/21/2006" "10/3/2006" Nothing Nothing
		Set ComCellEditorVisible of hoItems1 h 1 to False
		Set ComCellEditorVisible of hoItems1 h 2 to False
		Variant h1
		Get ComInsertItem of hoItems1 h "Task 1" to h1
		Send ComAddBar of hoItems1 h1 "Task" "9/21/2006" "9/24/2006" Nothing Nothing
		Variant h2
		Get ComInsertItem of hoItems1 h "Task 2" to h2
		Send ComAddBar of hoItems1 h2 "Task" "9/24/2006" "9/28/2006" Nothing Nothing
		Variant h3
		Get ComInsertItem of hoItems1 h "Task 3" to h3
		Send ComAddBar of hoItems1 h3 "Task" "9/28/2006" "10/3/2006" Nothing Nothing
		Send ComDefineSummaryBars of hoItems1 h "" h1 ""
		Send ComDefineSummaryBars of hoItems1 h "" h2 ""
		Send ComDefineSummaryBars of hoItems1 h "" h3 ""
		Set ComExpandItem of hoItems1 h to True
		Set ComItemBold of hoItems1 h to True
	Send Destroy to hoItems1
	Send ComEndUpdate
End_Procedure
883
How can I group two bars so I can specify the range or the limit of the interval between them

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComMarkSearchColumn to False
	Set ComOnResizeControl to OLEexResizeChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn
		Get ComAdd of hoColumns1 "Start" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComVisible of hoColumn to False
		Send Destroy to hoColumn
	Send Destroy to hoColumns1
	Variant voColumns2
	Get ComColumns to voColumns2
	Handle hoColumns2
	Get Create (RefClass(cComColumns)) to hoColumns2
	Set pvComObject of hoColumns2 to voColumns2
		Variant voColumn1
		Get ComAdd of hoColumns2 "End" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComVisible of hoColumn1 to False
		Send Destroy to hoColumn1
	Send Destroy to hoColumns2
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "9/20/2006"
		Set ComPaneWidth of hoChart False to 64
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Project" to h
		Set ComCellValue of hoItems h 1 to "9/21/2006"
		Set ComCellValue of hoItems h 2 to "10/3/2006"
		Send ComAddBar of hoItems h "Summary" (ComCellValue(hoItems,h,1)) (ComCellValue(hoItems,h,2)) "sum" Nothing
		Variant h1
		Get ComInsertItem of hoItems h "Task 1" to h1
		Set ComCellValue of hoItems h1 1 to (ComCellValue(hoItems,h,1))
		Set ComCellValue of hoItems h1 2 to "9/24/2006"
		Send ComAddBar of hoItems h1 "Task" (ComCellValue(hoItems,h1,1)) (ComCellValue(hoItems,h1,2)) "K1" Nothing
		Variant h2
		Get ComInsertItem of hoItems h "Task 2" to h2
		Set ComCellValue of hoItems h2 1 to (ComCellValue(hoItems,h1,2))
		Set ComCellValue of hoItems h2 2 to "9/28/2006"
		Send ComAddBar of hoItems h2 "Unknown" (ComCellValue(hoItems,h2,1)) (ComCellValue(hoItems,h2,2)) "K2" Nothing
		Send ComAddLink of hoItems "L1" h1 "K1" h2 "K2"
		Variant h3
		Get ComInsertItem of hoItems h "Task 3" to h3
		Set ComCellValue of hoItems h3 1 to (ComCellValue(hoItems,h2,2))
		Set ComCellValue of hoItems h3 2 to (ComCellValue(hoItems,h,2))
		Send ComAddBar of hoItems h3 "Task" (ComCellValue(hoItems,h3,1)) (ComCellValue(hoItems,h3,2)) "K3" Nothing
		Send ComAddLink of hoItems "L2" h2 "K2" h3 "K3"
		Send ComGroupBars of hoItems h1 "K1" False h2 "K2" True 31 "0;4"
		Send ComGroupBars of hoItems h2 "K2" False h3 "K3" True 31 "0;2"
		Send ComDefineSummaryBars of hoItems h "sum" h1 "K1"
		Send ComDefineSummaryBars of hoItems h "sum" h2 "K2"
		Send ComDefineSummaryBars of hoItems h "sum" h3 "K3"
		Set ComExpandItem of hoItems h to True
		Set ComItemBold of hoItems h to True
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
882
How can I group my bars so I can resize the interval between them but still keep the lengths of them

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComMarkSearchColumn to False
	Set ComOnResizeControl to OLEexResizeChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn
		Get ComAdd of hoColumns1 "Start" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComVisible of hoColumn to False
		Send Destroy to hoColumn
	Send Destroy to hoColumns1
	Variant voColumns2
	Get ComColumns to voColumns2
	Handle hoColumns2
	Get Create (RefClass(cComColumns)) to hoColumns2
	Set pvComObject of hoColumns2 to voColumns2
		Variant voColumn1
		Get ComAdd of hoColumns2 "End" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComVisible of hoColumn1 to False
		Send Destroy to hoColumn1
	Send Destroy to hoColumns2
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "9/20/2006"
		Set ComPaneWidth of hoChart False to 64
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Project" to h
		Set ComCellValue of hoItems h 1 to "9/21/2006"
		Set ComCellValue of hoItems h 2 to "10/3/2006"
		Send ComAddBar of hoItems h "Summary" (ComCellValue(hoItems,h,1)) (ComCellValue(hoItems,h,2)) Nothing Nothing
		Variant h1
		Get ComInsertItem of hoItems h "Task 1" to h1
		Set ComCellValue of hoItems h1 1 to (ComCellValue(hoItems,h,1))
		Set ComCellValue of hoItems h1 2 to "9/24/2006"
		Send ComAddBar of hoItems h1 "Task" (ComCellValue(hoItems,h1,1)) (ComCellValue(hoItems,h1,2)) Nothing Nothing
		Variant h2
		Get ComInsertItem of hoItems h "Task 2" to h2
		Set ComCellValue of hoItems h2 1 to (ComCellValue(hoItems,h1,2))
		Set ComCellValue of hoItems h2 2 to "9/28/2006"
		Send ComAddBar of hoItems h2 "Unknown" (ComCellValue(hoItems,h2,1)) (ComCellValue(hoItems,h2,2)) Nothing Nothing
		Send ComAddLink of hoItems "L1" h1 "" h2 ""
		Variant h3
		Get ComInsertItem of hoItems h "Task 3" to h3
		Set ComCellValue of hoItems h3 1 to (ComCellValue(hoItems,h2,2))
		Set ComCellValue of hoItems h3 2 to (ComCellValue(hoItems,h,2))
		Send ComAddBar of hoItems h3 "Task" (ComCellValue(hoItems,h3,1)) (ComCellValue(hoItems,h3,2)) Nothing Nothing
		Send ComAddLink of hoItems "L2" h2 "" h3 ""
		Send ComGroupBars of hoItems h1 "" False h2 "" True 35 Nothing
		Send ComGroupBars of hoItems h2 "" False h3 "" True 35 Nothing
		Send ComDefineSummaryBars of hoItems h "" h1 ""
		Send ComDefineSummaryBars of hoItems h "" h2 ""
		Send ComDefineSummaryBars of hoItems h "" h3 ""
		Set ComExpandItem of hoItems h to True
		Set ComItemBold of hoItems h to True
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
881
Can I group my bars so they move together when a bar inside changes, but still preserving the length of the bars

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComMarkSearchColumn to False
	Set ComOnResizeControl to OLEexResizeChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn
		Get ComAdd of hoColumns1 "Start" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComVisible of hoColumn to False
		Send Destroy to hoColumn
	Send Destroy to hoColumns1
	Variant voColumns2
	Get ComColumns to voColumns2
	Handle hoColumns2
	Get Create (RefClass(cComColumns)) to hoColumns2
	Set pvComObject of hoColumns2 to voColumns2
		Variant voColumn1
		Get ComAdd of hoColumns2 "End" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComVisible of hoColumn1 to False
		Send Destroy to hoColumn1
	Send Destroy to hoColumns2
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "9/20/2006"
		Set ComPaneWidth of hoChart False to 64
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Project" to h
		Set ComCellValue of hoItems h 1 to "9/21/2006"
		Set ComCellValue of hoItems h 2 to "10/3/2006"
		Send ComAddBar of hoItems h "Summary" (ComCellValue(hoItems,h,1)) (ComCellValue(hoItems,h,2)) Nothing Nothing
		Variant h1
		Get ComInsertItem of hoItems h "Task 1" to h1
		Set ComCellValue of hoItems h1 1 to (ComCellValue(hoItems,h,1))
		Set ComCellValue of hoItems h1 2 to "9/24/2006"
		Send ComAddBar of hoItems h1 "Task" (ComCellValue(hoItems,h1,1)) (ComCellValue(hoItems,h1,2)) Nothing Nothing
		Variant h2
		Get ComInsertItem of hoItems h "Task 2" to h2
		Set ComCellValue of hoItems h2 1 to (ComCellValue(hoItems,h1,2))
		Set ComCellValue of hoItems h2 2 to "9/28/2006"
		Send ComAddBar of hoItems h2 "Unknown" (ComCellValue(hoItems,h2,1)) (ComCellValue(hoItems,h2,2)) Nothing Nothing
		Send ComAddLink of hoItems "L1" h1 "" h2 ""
		Variant h3
		Get ComInsertItem of hoItems h "Task 3" to h3
		Set ComCellValue of hoItems h3 1 to (ComCellValue(hoItems,h2,2))
		Set ComCellValue of hoItems h3 2 to (ComCellValue(hoItems,h,2))
		Send ComAddBar of hoItems h3 "Task" (ComCellValue(hoItems,h3,1)) (ComCellValue(hoItems,h3,2)) Nothing Nothing
		Send ComAddLink of hoItems "L2" h2 "" h3 ""
		Send ComGroupBars of hoItems h1 "" False h2 "" True 3 Nothing
		Send ComGroupBars of hoItems h2 "" False h3 "" True 3 Nothing
		Send ComDefineSummaryBars of hoItems h "" h1 ""
		Send ComDefineSummaryBars of hoItems h "" h2 ""
		Send ComDefineSummaryBars of hoItems h "" h3 ""
		Set ComExpandItem of hoItems h to True
		Set ComItemBold of hoItems h to True
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
880
How can I split the time scale, so a section displays days, while other displays weeks, and the other months

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComHeaderHeight to 24
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Default" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComDrawDateTicker of hoChart to True
		Set ComDrawGridLines of hoChart to OLEexVLines
		Set ComNonworkingDays of hoChart to 0
		Set ComPaneWidth of hoChart False to 0
		Set ComFirstVisibleDate of hoChart to "1/1/2007"
		Set ComLevelCount of hoChart to 3
		Variant voLevel
		Get ComLevel of hoChart 0 to voLevel
		Handle hoLevel
		Get Create (RefClass(cComLevel)) to hoLevel
		Set pvComObject of hoLevel to voLevel
			Set ComLabel of hoLevel to "<%yyyy%>"
			Set ComUnit of hoLevel to OLEexYear
		Send Destroy to hoLevel
		Variant voLevel1
		Get ComLevel of hoChart 1 to voLevel1
		Handle hoLevel1
		Get Create (RefClass(cComLevel)) to hoLevel1
		Set pvComObject of hoLevel1 to voLevel1
			Set ComAlignment of hoLevel1 to OLECenterAlignment
			Set ComLabel of hoLevel1 to "<%hy%>"
			Set ComUnit of hoLevel1 to OLEexHalfYear
			Set ComReplaceLabel of hoLevel1 "1" to "<b>1/2</b>"
			Set ComReplaceLabel of hoLevel1 "2" to "<b>2/2</b>"
		Send Destroy to hoLevel1
		Variant voLevel2
		Get ComLevel of hoChart 2 to voLevel2
		Handle hoLevel2
		Get Create (RefClass(cComLevel)) to hoLevel2
		Set pvComObject of hoLevel2 to voLevel2
			Set ComLabel of hoLevel2 to "<%mmm%>"
			Set ComUnit of hoLevel2 to OLEexMonth
		Send Destroy to hoLevel2
		Set ComUnitWidth of hoChart to 28
		Set ComAllowInsideZoom of hoChart to True
		Variant voInsideZoomFormat
		Get ComDefaultInsideZoomFormat of hoChart to voInsideZoomFormat
		Handle hoInsideZoomFormat
		Get Create (RefClass(cComInsideZoomFormat)) to hoInsideZoomFormat
		Set pvComObject of hoInsideZoomFormat to voInsideZoomFormat
			Set ComOwnerLabel of hoInsideZoomFormat to "<b><%mmmm%></b> (weeks) "
			Set ComInsideLabel of hoInsideZoomFormat to "<font ;6>W: <b><%ww%></b>"
			Set ComInsideUnit of hoInsideZoomFormat to OLEexWeek
		Send Destroy to hoInsideZoomFormat
		Variant voInsideZooms
		Get ComInsideZooms of hoChart to voInsideZooms
		Handle hoInsideZooms
		Get Create (RefClass(cComInsideZooms)) to hoInsideZooms
		Set pvComObject of hoInsideZooms to voInsideZooms
			Set ComSplitBaseLevel of hoInsideZooms to False
			Variant voInsideZoom
			Get ComAdd of hoInsideZooms "1/1/2007" to voInsideZoom
			Handle hoInsideZoom
			Get Create (RefClass(cComInsideZoom)) to hoInsideZoom
			Set pvComObject of hoInsideZoom to voInsideZoom
				Set ComAllowCustomFormat of hoInsideZoom to True
				Variant voInsideZoomFormat1
				Get ComCustomFormat of hoInsideZoom to voInsideZoomFormat1
				Handle hoInsideZoomFormat1
				Get Create (RefClass(cComInsideZoomFormat)) to hoInsideZoomFormat1
				Set pvComObject of hoInsideZoomFormat1 to voInsideZoomFormat1
					Set ComOwnerLabel of hoInsideZoomFormat1 to "<b><%mmmm%></b> (weeks) "
					Set ComInsideLabel of hoInsideZoomFormat1 to "<font ;6>W: <b><%ww%></b>"
					Set ComInsideUnit of hoInsideZoomFormat1 to OLEexWeek
					Set ComBackColorChart of hoInsideZoomFormat1 to (RGB(187,231,240))
				Send Destroy to hoInsideZoomFormat1
			Send Destroy to hoInsideZoom
			Variant voInsideZoom1
			Get ComAdd of hoInsideZooms "3/1/2007" to voInsideZoom1
			Handle hoInsideZoom1
			Get Create (RefClass(cComInsideZoom)) to hoInsideZoom1
			Set pvComObject of hoInsideZoom1 to voInsideZoom1
				Set ComAllowCustomFormat of hoInsideZoom1 to True
				Set ComWidth of hoInsideZoom1 to 356
				Variant voInsideZoomFormat2
				Get ComCustomFormat of hoInsideZoom1 to voInsideZoomFormat2
				Handle hoInsideZoomFormat2
				Get Create (RefClass(cComInsideZoomFormat)) to hoInsideZoomFormat2
				Set pvComObject of hoInsideZoomFormat2 to voInsideZoomFormat2
					Set ComOwnerLabel of hoInsideZoomFormat2 to "<b><%mmmm%></b> (days) "
					Set ComInsideLabel of hoInsideZoomFormat2 to "<font ;5><%d%></font>"
					Set ComInsideUnit of hoInsideZoomFormat2 to OLEexDay
					Set ComBackColorChart of hoInsideZoomFormat2 to (RGB(145,200,240))
				Send Destroy to hoInsideZoomFormat2
			Send Destroy to hoInsideZoom1
		Send Destroy to hoInsideZooms
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Task 1 " to h
		Send ComAddBar of hoItems h "Task" "1/12/2007" "3/9/2007" Nothing Nothing
		Get ComAddItem of hoItems "Task 2" to h
		Send ComAddBar of hoItems h "Task" "1/25/2007" "3/12/2007" Nothing Nothing
		Get ComAddItem of hoItems "Task 3" to h
		Send ComAddBar of hoItems h "Task" "2/1/2007" "2/8/2007" "B1" Nothing
		Send ComAddBar of hoItems h "Task" "2/8/2007" "2/15/2007" "B2" Nothing
		Send ComAddBar of hoItems h "Task" "2/15/2007" "2/22/2007" "B3" Nothing
		Send ComAddBar of hoItems h "Task" "2/22/2007" "2/28/2007" "B4" Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
879
How can I define a bar that shows two colors, one up and one down, without using skin or EBN files

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
	Send Destroy to hoChart
	Variant voChart1
	Get ComChart to voChart1
	Handle hoChart1
	Get Create (RefClass(cComChart)) to hoChart1
	Set pvComObject of hoChart1 to voChart1
		Variant voBars
		Get ComBars of hoChart1 to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComAdd of hoBars "A" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComColor of hoBar to (RGB(255,0,0))
				Set ComShape of hoBar to OLEexShapeSolidUp
				Set ComPattern of hoBar to OLEexPatternSolid
			Send Destroy to hoBar
		Send Destroy to hoBars
	Send Destroy to hoChart1
	Variant voChart2
	Get ComChart to voChart2
	Handle hoChart2
	Get Create (RefClass(cComChart)) to hoChart2
	Set pvComObject of hoChart2 to voChart2
		Variant voBars1
		Get ComBars of hoChart2 to voBars1
		Handle hoBars1
		Get Create (RefClass(cComBars)) to hoBars1
		Set pvComObject of hoBars1 to voBars1
			Variant voBar1
			Get ComAdd of hoBars1 "B" to voBar1
			Handle hoBar1
			Get Create (RefClass(cComBar)) to hoBar1
			Set pvComObject of hoBar1 to voBar1
				Set ComColor of hoBar1 to (RGB(128,0,0))
				Set ComShape of hoBar1 to OLEexShapeSolidDown
				Set ComPattern of hoBar1 to OLEexPatternSolid
			Send Destroy to hoBar1
		Send Destroy to hoBars1
	Send Destroy to hoChart2
	Variant voChart3
	Get ComChart to voChart3
	Handle hoChart3
	Get Create (RefClass(cComChart)) to hoChart3
	Set pvComObject of hoChart3 to voChart3
		Variant voBars2
		Get ComBars of hoChart3 to voBars2
		Handle hoBars2
		Get Create (RefClass(cComBars)) to hoBars2
		Set pvComObject of hoBars2 to voBars2
			Variant voBar2
			Get ComAdd of hoBars2 "A%B" to voBar2
			Handle hoBar2
			Get Create (RefClass(cComBar)) to hoBar2
			Set pvComObject of hoBar2 to voBar2
				Set ComShortcut of hoBar2 to "AB"
			Send Destroy to hoBar2
		Send Destroy to hoBars2
	Send Destroy to hoChart3
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Task 1" to h
		Send ComAddBar of hoItems h "AB" "1/2/2001" "1/6/2001" "K1" Nothing
		Set ComItemBar of hoItems h "K1" OLEexBarPercent to 1
		Set ComItemBar of hoItems h "K1" OLEexBarCanResizePercent to False
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
878
Does your control support RightToLeft property for RTL languages or right to left
Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComScrollBars to OLEexDisableBoth
	Set ComLinesAtRoot to OLEexLinesAtRoot
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "P1" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDef of hoColumn OLEexCellHasCheckBox to True
			Set ComPartialCheck of hoColumn to True
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Root" to h
		Get ComInsertItem of hoItems h "Child 1" to Nothing
		Get ComInsertItem of hoItems h "Child 2" to Nothing
		Set ComExpandItem of hoItems h to True
	Send Destroy to hoItems
	Set ComRightToLeft to True
	Send ComEndUpdate
End_Procedure
877
Is there any way to display the vertical scroll bar on the left side, as I want to align my data to the right
Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComScrollBars to OLEexDisableBoth
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "C1" to Nothing
		Get ComAdd of hoColumns "C2" to Nothing
		Get ComAdd of hoColumns "C3" to Nothing
		Get ComAdd of hoColumns "C4" to Nothing
		Get ComAdd of hoColumns "C5" to Nothing
		Get ComAdd of hoColumns "C6" to Nothing
		Get ComAdd of hoColumns "C7" to Nothing
		Get ComAdd of hoColumns "C8" to Nothing
	Send Destroy to hoColumns
	Set ComRightToLeft to True
	Send ComEndUpdate
End_Procedure
876
Can I display the cell's check box after the text
Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Column" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDef of hoColumn OLEexCellHasCheckBox to True
			Set ComDef of hoColumn OLEexCellDrawPartsOrder to "caption,check"
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComCellHasCheckBox of hoItems (ComAddItem(hoItems,"Caption 1")) 0 to True
		Set ComCellHasCheckBox of hoItems (ComAddItem(hoItems,"Caption 2")) 0 to True
	Send Destroy to hoItems
End_Procedure
875
Can I change the order of the parts in the cell, as checkbox after the text, and so on
Procedure OnCreate
	Forward Send OnCreate
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Column" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDef of hoColumn OLEexCellDrawPartsOrder to "caption,check,icon,icons,picture"
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Text" to h
		Set ComCellImage of hoItems h 0 to 1
		Set ComCellHasCheckBox of hoItems h 0 to True
	Send Destroy to hoItems
End_Procedure
874
Can I have an image displayed after the text. Can I get that effect without using HTML content
Procedure OnCreate
	Forward Send OnCreate
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Column" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDef of hoColumn OLEexCellDrawPartsOrder to "caption,icon,check,icons,picture"
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Text" to h
		Set ComCellImage of hoItems h 0 to 1
	Send Destroy to hoItems
End_Procedure
873
My problem is that I want to mark the cells from every second item in the gant with a other backgroundcolor

Procedure OnCreate
	Forward Send OnCreate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart False to 0
		Set ComFirstVisibleDate of hoChart to "1/17/2008"
		Set ComLevelCount of hoChart to 2
		Set ComUnitScale of hoChart to OLEexSecond
		Variant voLevel
		Get ComLevel of hoChart 1 to voLevel
		Handle hoLevel
		Get Create (RefClass(cComLevel)) to hoLevel
		Set pvComObject of hoLevel to voLevel
			Set ComFormatLabel of hoLevel to "(0:=sec(dvalue)) mod 2 ? 0=: : '<bgcolor=00FF00>' + 0=:"
		Send Destroy to hoLevel
	Send Destroy to hoChart
End_Procedure
872
Is there any option to print the columns section on each page

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Col 1" to Nothing
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Get ComAdd of hoColumns1 "Col 2" to Nothing
	Send Destroy to hoColumns1
	Set ComMarkSearchColumn to False
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
	Send Destroy to hoChart
	Variant voChart1
	Get ComChart to voChart1
	Handle hoChart1
	Get Create (RefClass(cComChart)) to hoChart1
	Set pvComObject of hoChart1 to voChart1
		Set ComLevelCount of hoChart1 to 2
	Send Destroy to hoChart1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h1
		Get ComAddItem of hoItems "Col 1" to h1
		Set ComCellValue of hoItems h1 1 to "Col 2"
		Send ComAddBar of hoItems h1 "Task" "1/2/2001" "1/4/2001" "K1" Nothing
		Variant h2
		Get ComAddItem of hoItems "Col 1" to h2
		Set ComCellValue of hoItems h2 1 to "Col 2"
		Send ComAddBar of hoItems h2 "Task" "2/5/2001" "2/7/2001" "K2" Nothing
		Send ComAddLink of hoItems "L1" h1 "K1" h2 "K2"
		Set ComLink of hoItems "L1" OLEexLinkStartPos to 0
	Send Destroy to hoItems
	Send ComEndUpdate
	Handle hoPrint
	Get Create (RefClass(cComPrint)) to hoPrint // Import the 'ExPrint 1.0 Control Library' library
		Set ComOptions of hoPrint to "ColumnsOnEveryPage=-2"
		Set ComPrintExt of hoPrint to (pvComObject(Self))
		Send ComPreview of hoPrint
	Send Destroy to hoPrint
End_Procedure
871
How can I add a different non-working area for different items

Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Non-Work" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstWeekDay of hoChart to OLEexMonday
		Set ComFirstVisibleDate of hoChart to "1/24/2008"
		Set ComPaneWidth of hoChart False to 52
		Set ComLevelCount of hoChart to 2
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "January" to h
		Set ComItemNonworkingUnits of hoItems h False to "month(value) = 1"
		Get ComAddItem of hoItems "February, Saturday, Sunday" to h
		Set ComItemNonworkingUnits of hoItems h False to "month(value) = 2 or (weekday(value) = 0 or weekday(value) = 6)"
		Get ComAddItem of hoItems "Sunday" to h
		Set ComItemNonworkingUnits of hoItems h False to "weekday(value) = 0"
	Send Destroy to hoItems
End_Procedure
870
How can I define different non-working units for different items

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart False to 78
		Set ComAllowCreateBar of hoChart to OLEexCreateBarAuto
		Set ComFirstVisibleDate of hoChart to "6/20/2005"
		Set ComDrawLevelSeparator of hoChart to False
		Set ComLevelCount of hoChart to 3
		Variant voLevel
		Get ComLevel of hoChart 1 to voLevel
		Handle hoLevel
		Get Create (RefClass(cComLevel)) to hoLevel
		Set pvComObject of hoLevel to voLevel
			Set ComDrawGridLines of hoLevel to False
		Send Destroy to hoLevel
		Set ComAllowInsideZoom of hoChart to True
		Set ComDrawDateTicker of hoChart to True
		Set ComDateTickerLabel of hoChart to "<%mmm%> <%d%><br><b><%hh%>:<%nn%></b>"
		Set ComMarkSelectDateColor of hoChart to |CI$7ffff8ee
		Variant voInsideZoomFormat
		Get ComDefaultInsideZoomFormat of hoChart to voInsideZoomFormat
		Handle hoInsideZoomFormat
		Get Create (RefClass(cComInsideZoomFormat)) to hoInsideZoomFormat
		Set pvComObject of hoInsideZoomFormat to voInsideZoomFormat
			Set ComOwnerLabel of hoInsideZoomFormat to "<%mmm%> <%d%>"
			Set ComBackColor of hoInsideZoomFormat to (RGB(238,248,255))
			Set ComBackColorChart of hoInsideZoomFormat to (ComBackColor(hoInsideZoomFormat))
			Set ComInsideCount of hoInsideZoomFormat to 4
			Set ComInsideLabel of hoInsideZoomFormat to "<b><%hh%></b>"
		Send Destroy to hoInsideZoomFormat
		Variant voInsideZooms
		Get ComInsideZooms of hoChart to voInsideZooms
		Handle hoInsideZooms
		Get Create (RefClass(cComInsideZooms)) to hoInsideZooms
		Set pvComObject of hoInsideZooms to voInsideZooms
			Get ComAdd of hoInsideZooms "6/22/2005" to Nothing
		Send Destroy to hoInsideZooms
		Set ComDrawGridLines of hoChart to OLEexVLines
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComItem of hoBars "Split" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComColor of hoBar to (RGB(255,0,0))
			Send Destroy to hoBar
		Send Destroy to hoBars
		Variant voBars1
		Get ComBars of hoChart to voBars1
		Handle hoBars1
		Get Create (RefClass(cComBars)) to hoBars1
		Set pvComObject of hoBars1 to voBars1
			Variant voBar1
			Get ComAdd of hoBars1 "Task:Split" to voBar1
			Handle hoBar1
			Get Create (RefClass(cComBar)) to hoBar1
			Set pvComObject of hoBar1 to voBar1
				Set ComColor of hoBar1 to (RGB(255,0,0))
				Set ComPattern of hoBar1 to OLEexPatternBDiagonal
				Set ComShortcut of hoBar1 to "TaskS"
			Send Destroy to hoBar1
		Send Destroy to hoBars1
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Project 1" to h
		Send ComAddBar of hoItems h "Summary" "6/21/2005" "7/1/2005" Nothing Nothing
		Variant h1
		Get ComInsertItem of hoItems h "Task 1" to h1
		Send ComAddBar of hoItems h1 "TaskS" "6/21/2005" "6/28/2005" Nothing Nothing
		Set ComItemNonworkingUnits of hoItems h1 false to "weekday(value)=1 or weekday(value)=2"
		Set ComItemNonworkingUnits of hoItems h1 true to "weekday(value)=1 or weekday(value)=2 or (hour(value)<8 or hour(value)>=16 )"
		Send ComDefineSummaryBars of hoItems h "" h1 ""
		Get ComInsertItem of hoItems h "Task 2" to h1
		Send ComAddBar of hoItems h1 "TaskS" "6/22/2005 4:00:00 AM" "7/1/2005" "E" Nothing
		Set ComItemNonworkingUnits of hoItems h1 false to "weekday(value)=0"
		Set ComItemNonworkingUnits of hoItems h1 true to "weekday(value)=0 or hour(value)<4 or hour(value)>19"
		Send ComDefineSummaryBars of hoItems h "" h1 "E"
		Set ComItemBar of hoItems h1 "E" OLEexBarEffort to 5
		Get ComInsertItem of hoItems h "Task 3" to h1
		Send ComAddBar of hoItems h1 "TaskS" "6/22/2005 12:00:00 PM" "6/27/2005" "E" Nothing
		Set ComItemNonworkingUnits of hoItems h1 false to "weekday(value)=1 or weekday(value)=2"
		Set ComItemNonworkingUnits of hoItems h1 true to "weekday(value)=1 or weekday(value)=2 or (hour(value)<8 or hour(value)>=16 )"
		Send ComDefineSummaryBars of hoItems h "" h1 "E"
		Set ComExpandItem of hoItems h to True
		Get ComAddItem of hoItems "Project 2" to h
		Send ComAddBar of hoItems h "Summary" "6/26/2005" "7/6/2005" Nothing Nothing
		Get ComInsertItem of hoItems h "TaskS 1" to h1
		Send ComAddBar of hoItems h1 "TaskS" "6/26/2005" "7/2/2005" Nothing Nothing
		Send ComDefineSummaryBars of hoItems h "" h1 ""
		Get ComInsertItem of hoItems h "TaskS 2" to h1
		Send ComAddBar of hoItems h1 "TaskS" "6/28/2005" "7/6/2005" "E" Nothing
		Send ComDefineSummaryBars of hoItems h "" h1 "E"
		Set ComItemBar of hoItems h1 "E" OLEexBarEffort to 5
		Get ComInsertItem of hoItems h "TaskS 3" to h1
		Send ComAddBar of hoItems h1 "TaskS" "6/30/2005" "7/2/2005" "E" Nothing
		Send ComDefineSummaryBars of hoItems h "" h1 "E"
		Set ComExpandItem of hoItems h to True
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
869
I want to define/highlight for specified dates as being non-working. Is this possible

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Items" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComNonworkingDaysColor of hoChart to (RGB(255,0,0))
		Set ComPaneWidth of hoChart False to 48
		Variant c
		Get ComNonworkingDaysColor of hoChart to c
		Variant p
		Get ComNonworkingDaysPattern of hoChart to p
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComAdd of hoBars "NW" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComColor of hoBar to c
				Set ComPattern of hoBar to p
				Set ComHeight of hoBar to -1
				Set ComShape of hoBar to OLEexShapeSolidFrameless
			Send Destroy to hoBar
		Send Destroy to hoBars
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Item 1" to h
		Send ComAddBar of hoItems h "NW" "1/2/2001" "1/3/2001" "0" Nothing
		Set ComItemBar of hoItems h "0" OLEexBarSelectable to False
		Send ComAddBar of hoItems h "Task" "1/2/2001" "1/4/2001" "K2" Nothing
		Get ComAddItem of hoItems "Item 2" to h
		Send ComAddBar of hoItems h "NW" "1/2/2001" "1/4/2001" "0" Nothing
		Set ComItemBar of hoItems h "0" OLEexBarSelectable to False
		Send ComAddBar of hoItems h "Task" "1/2/2001" "1/5/2001" "K2" Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
868
Do you have any sample how can I programmatically magnify a single date, so can show the hours, while the rest of the chart displays days

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComMarkSearchColumn to False
	Set ComShowFocusRect to False
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn
		Get ComAdd of hoColumns1 "C" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComHeaderAlignment of hoColumn to OLECenterAlignment
			Set ComDef of hoColumn OLEexCellHasCheckBox to True
			Set ComPartialCheck of hoColumn to True
			Set ComAllowSizing of hoColumn to False
			Set ComWidth of hoColumn to 18
		Send Destroy to hoColumn
	Send Destroy to hoColumns1
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart False to 96
		Set ComAllowCreateBar of hoChart to OLEexCreateBarAuto
		Set ComFirstVisibleDate of hoChart to "6/20/2005"
		Set ComDrawLevelSeparator of hoChart to False
		Set ComLevelCount of hoChart to 3
		Variant voLevel
		Get ComLevel of hoChart 1 to voLevel
		Handle hoLevel
		Get Create (RefClass(cComLevel)) to hoLevel
		Set pvComObject of hoLevel to voLevel
			Set ComDrawGridLines of hoLevel to False
		Send Destroy to hoLevel
		Set ComAllowInsideZoom of hoChart to True
		Set ComDrawDateTicker of hoChart to True
		Set ComDateTickerLabel of hoChart to "<%mmm%> <%d%><br><b><%hh%>:<%nn%></b>"
		Set ComMarkSelectDateColor of hoChart to |CI$7ffff8ee
		Variant voInsideZoomFormat
		Get ComDefaultInsideZoomFormat of hoChart to voInsideZoomFormat
		Handle hoInsideZoomFormat
		Get Create (RefClass(cComInsideZoomFormat)) to hoInsideZoomFormat
		Set pvComObject of hoInsideZoomFormat to voInsideZoomFormat
			Set ComOwnerLabel of hoInsideZoomFormat to "<%mmm%> <%d%>"
			Set ComBackColor of hoInsideZoomFormat to (RGB(238,248,255))
			Set ComBackColorChart of hoInsideZoomFormat to (ComBackColor(hoInsideZoomFormat))
			Set ComInsideCount of hoInsideZoomFormat to 4
			Set ComInsideLabel of hoInsideZoomFormat to "<b><%hh%></b>"
		Send Destroy to hoInsideZoomFormat
		Variant voInsideZooms
		Get ComInsideZooms of hoChart to voInsideZooms
		Handle hoInsideZooms
		Get Create (RefClass(cComInsideZooms)) to hoInsideZooms
		Set pvComObject of hoInsideZooms to voInsideZooms
			Get ComAdd of hoInsideZooms "6/22/2005" to Nothing
		Send Destroy to hoInsideZooms
		Set ComDrawGridLines of hoChart to OLEexVLines
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Project 1" to h
		Send ComAddBar of hoItems h "Summary" "6/21/2005" "7/1/2005" Nothing Nothing
		Variant h1
		Get ComInsertItem of hoItems h "Task 1" to h1
		Send ComAddBar of hoItems h1 "Task" "6/21/2005" "6/28/2005" Nothing Nothing
		Set ComCellMerge of hoItems h1 0 to 1
		Send ComDefineSummaryBars of hoItems h "" h1 ""
		Get ComInsertItem of hoItems h "Task 2" to h1
		Send ComAddBar of hoItems h1 "Task" "6/23/2005" "7/1/2005" "E" Nothing
		Set ComCellMerge of hoItems h1 0 to 1
		Send ComDefineSummaryBars of hoItems h "" h1 "E"
		Set ComItemBar of hoItems h1 "E" OLEexBarEffort to 5
		Get ComInsertItem of hoItems h "Task 3" to h1
		Send ComAddBar of hoItems h1 "Task" "6/25/2005" "6/27/2005" "E" Nothing
		Set ComCellMerge of hoItems h1 0 to 1
		Send ComDefineSummaryBars of hoItems h "" h1 "E"
		Set ComExpandItem of hoItems h to True
		Set ComCellState of hoItems h 1 to 1
		Get ComAddItem of hoItems "Project 2" to h
		Send ComAddBar of hoItems h "Summary" "6/26/2005" "7/6/2005" Nothing Nothing
		Get ComInsertItem of hoItems h "Task 1" to h1
		Send ComAddBar of hoItems h1 "Task" "6/26/2005" "7/2/2005" Nothing Nothing
		Set ComCellMerge of hoItems h1 0 to 1
		Send ComDefineSummaryBars of hoItems h "" h1 ""
		Get ComInsertItem of hoItems h "Task 2" to h1
		Send ComAddBar of hoItems h1 "Task" "6/28/2005" "7/6/2005" "E" Nothing
		Set ComCellMerge of hoItems h1 0 to 1
		Send ComDefineSummaryBars of hoItems h "" h1 "E"
		Set ComItemBar of hoItems h1 "E" OLEexBarEffort to 5
		Get ComInsertItem of hoItems h "Task 3" to h1
		Send ComAddBar of hoItems h1 "Task" "6/30/2005" "7/2/2005" "E" Nothing
		Set ComCellMerge of hoItems h1 0 to 1
		Send ComDefineSummaryBars of hoItems h "" h1 "E"
		Set ComExpandItem of hoItems h to True
		Set ComCellState of hoItems h 1 to 1
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
867
How can I define my own/custom labels and subdivisions

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComToolTip of hoChart to ""
		Set ComPaneWidth of hoChart False to 0
		Set ComScrollRange of hoChart OLEexStartDate to 0
		Set ComScrollRange of hoChart OLEexEndDate to 110
		Set ComFirstVisibleDate of hoChart to 0
		Set ComShowNonworkingDates of hoChart to False
		Set ComMarkTodayColor of hoChart to (ComBackColor(hoChart))
		Set ComLevelCount of hoChart to 3
		Variant voLevel
		Get ComLevel of hoChart 0 to voLevel
		Handle hoLevel
		Get Create (RefClass(cComLevel)) to hoLevel
		Set pvComObject of hoLevel to voLevel
			Set ComToolTip of hoLevel to ""
			Set ComAlignment of hoLevel to OLECenterAlignment
			Set ComUnit of hoLevel to OLEexDay
			Set ComCount of hoLevel to 16
			Set ComFormatLabel of hoLevel to "'Group <b>'+int(1 +dvalue/16)"
		Send Destroy to hoLevel
		Variant voLevel1
		Get ComLevel of hoChart 1 to voLevel1
		Handle hoLevel1
		Get Create (RefClass(cComLevel)) to hoLevel1
		Set pvComObject of hoLevel1 to voLevel1
			Set ComToolTip of hoLevel1 to ""
			Set ComAlignment of hoLevel1 to OLECenterAlignment
			Set ComUnit of hoLevel1 to OLEexDay
			Set ComCount of hoLevel1 to 4
			Set ComFormatLabel of hoLevel1 to " (abs(dvalue)/4) mod 4"
			Set ComReplaceLabel of hoLevel1 "0" to "Sub-Group <b>1</b>"
			Set ComReplaceLabel of hoLevel1 "1" to "Sub-Group <b>2</b>"
			Set ComReplaceLabel of hoLevel1 "2" to "Sub-Group <b>3</b>"
			Set ComReplaceLabel of hoLevel1 "3" to "Sub-Group <b>4</b>"
		Send Destroy to hoLevel1
		Variant voLevel2
		Get ComLevel of hoChart 2 to voLevel2
		Handle hoLevel2
		Get Create (RefClass(cComLevel)) to hoLevel2
		Set pvComObject of hoLevel2 to voLevel2
			Set ComToolTip of hoLevel2 to ""
			Set ComUnit of hoLevel2 to OLEexDay
			Set ComCount of hoLevel2 to 1
			Set ComFormatLabel of hoLevel2 to "(abs(dvalue) mod 4)"
			Set ComReplaceLabel of hoLevel2 "0" to "A"
			Set ComReplaceLabel of hoLevel2 "1" to "B"
			Set ComReplaceLabel of hoLevel2 "2" to "C"
			Set ComReplaceLabel of hoLevel2 "3" to "D"
		Send Destroy to hoLevel2
	Send Destroy to hoChart
	Send ComEndUpdate
End_Procedure
866
I want to mark or highlight the last Friday of the month. Is there any option to do that

Procedure OnCreate
	Forward Send OnCreate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart False to 0
		Set ComFirstVisibleDate of hoChart to "1/17/2008"
		Set ComLevelCount of hoChart to 2
		Variant voLevel
		Get ComLevel of hoChart 1 to voLevel
		Handle hoLevel
		Get Create (RefClass(cComLevel)) to hoLevel
		Set pvComObject of hoLevel to voLevel
			Set ComFormatLabel of hoLevel to "(weekday(dvalue)=5 ? month(dvalue+7)!=month(dvalue) ? '<b><bgcolor=000000><fgcolor=FFFFFF>' ) + value"
		Send Destroy to hoLevel
	Send Destroy to hoChart
End_Procedure
865
I use the SelectDate method but the dates are not being highligted. What can I do
Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "1/1/2008"
		Set ComMarkTodayColor of hoChart to (ComBackColor(hoChart))
		Set ComLevelCount of hoChart to 2
		Set ComSelectLevel of hoChart to 1
		Set ComSelectDate of hoChart "1/2/2008" to True
	Send Destroy to hoChart
	Send ComEndUpdate
End_Procedure
864
Can I use ebn files to display the selected dates

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 2 "c:\exontrol\images\normal.ebn" to Nothing
		Get ComAdd of hoAppearance 1 "CP:2 0 -4 0 4" to Nothing
	Send Destroy to hoAppearance
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "1/1/2008"
		Set ComMarkTodayColor of hoChart to (ComBackColor(hoChart))
		Set ComLevelCount of hoChart to 2
		Set ComMarkSelectDateColor of hoChart to |CI$1000000
		Set ComSelectLevel of hoChart to 1
		Set ComSelectDate of hoChart "1/3/2008" to True
		Set ComSelectDate of hoChart "1/4/2008" to True
	Send Destroy to hoChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Default" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 1")) "Task" "1/2/2008" "1/6/2008" Nothing Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 2")) "Task" "1/3/2008" "1/7/2008" Nothing Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 3")) "Task" "1/4/2008" "1/8/2008" Nothing Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 4")) "Task" "1/5/2008" "1/9/2008" Nothing Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
863
Can I use ebn files to display the selected dates

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "1/1/2008"
		Set ComMarkTodayColor of hoChart to (ComBackColor(hoChart))
		Set ComLevelCount of hoChart to 2
		Set ComMarkSelectDateColor of hoChart to |CI$1000000
		Set ComSelectLevel of hoChart to 1
		Set ComSelectDate of hoChart "1/3/2008" to True
	Send Destroy to hoChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Default" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 1")) "Task" "1/2/2008" "1/6/2008" Nothing Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 2")) "Task" "1/3/2008" "1/7/2008" Nothing Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 3")) "Task" "1/4/2008" "1/8/2008" Nothing Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
862
How can I change the color for selected dates to be solid

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart False to 0
		Set ComFirstVisibleDate of hoChart to "1/1/2008"
		Set ComMarkTodayColor of hoChart to (ComBackColor(hoChart))
		Set ComLevelCount of hoChart to 2
		Set ComMarkSelectDateColor of hoChart to |CI$7fff0000
		Set ComSelectLevel of hoChart to 1
		Set ComSelectDate of hoChart "1/15/2008" to True
		Set ComSelectDate of hoChart "1/16/2008" to True
	Send Destroy to hoChart
	Send ComEndUpdate
End_Procedure
861
How can I disable selecting dates when I click the chart's header
Procedure OnCreate
	Forward Send OnCreate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComAllowSelectDate of hoChart to False
	Send Destroy to hoChart
End_Procedure
860
Is there any option to specify which dates can be magnified or resized
Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComLevelCount of hoChart to 2
		Set ComFirstVisibleDate of hoChart to "1/1/2008"
		Set ComAllowInsideZoom of hoChart to True
		Set ComShowNonworkingDates of hoChart to True
		Set ComCondInsideZoom of hoChart to "not(weekday(value) = 0 or weekday(value) = 6)"
	Send Destroy to hoChart
	Send ComEndUpdate
End_Procedure
859
How can I change the width for a specified date time unit

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComLevelCount of hoChart to 2
		Set ComFirstVisibleDate of hoChart to "1/1/2008"
		Set ComAllowInsideZoom of hoChart to True
		Set ComAllowResizeInsideZoom of hoChart to False
		Set ComInsideZoomOnDblClick of hoChart to False
		Variant voInsideZooms
		Get ComInsideZooms of hoChart to voInsideZooms
		Handle hoInsideZooms
		Get Create (RefClass(cComInsideZooms)) to hoInsideZooms
		Set pvComObject of hoInsideZooms to voInsideZooms
			Variant voInsideZoom
			Get ComAdd of hoInsideZooms "1/4/2008" to voInsideZoom
			Handle hoInsideZoom
			Get Create (RefClass(cComInsideZoom)) to hoInsideZoom
			Set pvComObject of hoInsideZoom to voInsideZoom
				Set ComWidth of hoInsideZoom to 32
				Set ComAllowInsideFormat of hoInsideZoom to False
			Send Destroy to hoInsideZoom
		Send Destroy to hoInsideZooms
	Send Destroy to hoChart
	Send ComEndUpdate
End_Procedure
858
How can I disable the control's splitter so the user can't resize the list area
Procedure OnCreate
	Forward Send OnCreate
	Set ComOnResizeControl to (OLEexDisableSplitter + OLEexResizeChart)
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart False to 60
	Send Destroy to hoChart
End_Procedure
857
How can I disable the control's splitter so the user can't resize the chart area
Procedure OnCreate
	Forward Send OnCreate
	Set ComOnResizeControl to OLEexDisableSplitter
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart True to 60
	Send Destroy to hoChart
End_Procedure
856
How can I change the label for a specified unit

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart False to 0
		Set ComLevelCount of hoChart to 2
		Set ComFirstVisibleDate of hoChart to "1/1/2008"
		Set ComAllowInsideZoom of hoChart to True
		Set ComAllowResizeInsideZoom of hoChart to False
		Set ComInsideZoomOnDblClick of hoChart to False
		Variant voInsideZoomFormat
		Get ComDefaultInsideZoomFormat of hoChart to voInsideZoomFormat
		Handle hoInsideZoomFormat
		Get Create (RefClass(cComInsideZoomFormat)) to hoInsideZoomFormat
		Set pvComObject of hoInsideZoomFormat to voInsideZoomFormat
			Set ComOwnerLabel of hoInsideZoomFormat to "<b><%d%></b> <%d2%>"
		Send Destroy to hoInsideZoomFormat
		Variant voInsideZooms
		Get ComInsideZooms of hoChart to voInsideZooms
		Handle hoInsideZooms
		Get Create (RefClass(cComInsideZooms)) to hoInsideZooms
		Set pvComObject of hoInsideZooms to voInsideZooms
			Set ComSplitBaseLevel of hoInsideZooms to False
			Set ComDefaultWidth of hoInsideZooms to 32
			Variant voInsideZoom
			Get ComAdd of hoInsideZooms "1/4/2008" to voInsideZoom
			Handle hoInsideZoom
			Get Create (RefClass(cComInsideZoom)) to hoInsideZoom
			Set pvComObject of hoInsideZoom to voInsideZoom
				Set ComAllowInsideFormat of hoInsideZoom to False
			Send Destroy to hoInsideZoom
		Send Destroy to hoInsideZooms
	Send Destroy to hoChart
	Send ComEndUpdate
End_Procedure
855
How can I bold the inside units

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart False to 0
		Set ComLevelCount of hoChart to 2
		Set ComFirstVisibleDate of hoChart to "1/1/2008"
		Set ComAllowInsideZoom of hoChart to True
		Set ComAllowResizeInsideZoom of hoChart to False
		Set ComInsideZoomOnDblClick of hoChart to False
		Variant voInsideZoomFormat
		Get ComDefaultInsideZoomFormat of hoChart to voInsideZoomFormat
		Handle hoInsideZoomFormat
		Get Create (RefClass(cComInsideZoomFormat)) to hoInsideZoomFormat
		Set pvComObject of hoInsideZoomFormat to voInsideZoomFormat
			Set ComInsideLabel of hoInsideZoomFormat to "<b><%hh%></b>"
		Send Destroy to hoInsideZoomFormat
		Variant voInsideZooms
		Get ComInsideZooms of hoChart to voInsideZooms
		Handle hoInsideZooms
		Get Create (RefClass(cComInsideZooms)) to hoInsideZooms
		Set pvComObject of hoInsideZooms to voInsideZooms
			Get ComAdd of hoInsideZooms "1/4/2008" to Nothing
		Send Destroy to hoInsideZooms
	Send Destroy to hoChart
	Send ComEndUpdate
End_Procedure
854
How can I change the scale unit when doing inside zoom ( the chart displays weeks, and we want week days )

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComShowNonworkingDates of hoChart to False
		Set ComPaneWidth of hoChart False to 0
		Set ComLevelCount of hoChart to 2
		Variant voLevel
		Get ComLevel of hoChart 0 to voLevel
		Handle hoLevel
		Get Create (RefClass(cComLevel)) to hoLevel
		Set pvComObject of hoLevel to voLevel
			Set ComLabel of hoLevel to "<%mmmm%>"
			Set ComUnit of hoLevel to OLEexMonth
		Send Destroy to hoLevel
		Variant voLevel1
		Get ComLevel of hoChart 1 to voLevel1
		Handle hoLevel1
		Get Create (RefClass(cComLevel)) to hoLevel1
		Set pvComObject of hoLevel1 to voLevel1
			Set ComLabel of hoLevel1 to "<%ww%>"
			Set ComUnit of hoLevel1 to OLEexWeek
		Send Destroy to hoLevel1
		Set ComFirstVisibleDate of hoChart to "1/1/2008"
		Set ComAllowInsideZoom of hoChart to True
		Variant voInsideZoomFormat
		Get ComDefaultInsideZoomFormat of hoChart to voInsideZoomFormat
		Handle hoInsideZoomFormat
		Get Create (RefClass(cComInsideZoomFormat)) to hoInsideZoomFormat
		Set pvComObject of hoInsideZoomFormat to voInsideZoomFormat
			Set ComOwnerLabel of hoInsideZoomFormat to "<font ;7><%mmm%> Week: <%ww%>"
			Set ComInsideLabel of hoInsideZoomFormat to "<font ;7><b><%d1%></b>"
			Set ComInsideUnit of hoInsideZoomFormat to OLEexDay
		Send Destroy to hoInsideZoomFormat
		Variant voInsideZooms
		Get ComInsideZooms of hoChart to voInsideZooms
		Handle hoInsideZooms
		Get Create (RefClass(cComInsideZooms)) to hoInsideZooms
		Set pvComObject of hoInsideZooms to voInsideZooms
			Set ComSplitBaseLevel of hoInsideZooms to False
			Get ComAdd of hoInsideZooms "2/3/2008" to Nothing
		Send Destroy to hoInsideZooms
	Send Destroy to hoChart
	Send ComEndUpdate
End_Procedure
853
How can I zoom or magnify the selected date to display the hours, from 8 to 8

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart False to 0
		Set ComLevelCount of hoChart to 2
		Set ComFirstVisibleDate of hoChart to "1/1/2008"
		Set ComAllowInsideZoom of hoChart to True
		Variant voInsideZoomFormat
		Get ComDefaultInsideZoomFormat of hoChart to voInsideZoomFormat
		Handle hoInsideZoomFormat
		Get Create (RefClass(cComInsideZoomFormat)) to hoInsideZoomFormat
		Set pvComObject of hoInsideZoomFormat to voInsideZoomFormat
			Set ComInsideLabel of hoInsideZoomFormat to "H: <b><%hh%></b>"
			Set ComInsideUnit of hoInsideZoomFormat to OLEexHour
			Set ComInsideCount of hoInsideZoomFormat to 8
		Send Destroy to hoInsideZoomFormat
		Variant voInsideZooms
		Get ComInsideZooms of hoChart to voInsideZooms
		Handle hoInsideZooms
		Get Create (RefClass(cComInsideZooms)) to hoInsideZooms
		Set pvComObject of hoInsideZooms to voInsideZooms
			Get ComAdd of hoInsideZooms "1/4/2008" to Nothing
		Send Destroy to hoInsideZooms
	Send Destroy to hoChart
	Send ComEndUpdate
End_Procedure
852
How can I zoom or magnify the selected date to display the hours

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart False to 0
		Set ComLevelCount of hoChart to 2
		Set ComFirstVisibleDate of hoChart to "1/1/2008"
		Set ComAllowInsideZoom of hoChart to True
		Variant voInsideZooms
		Get ComInsideZooms of hoChart to voInsideZooms
		Handle hoInsideZooms
		Get Create (RefClass(cComInsideZooms)) to hoInsideZooms
		Set pvComObject of hoInsideZooms to voInsideZooms
			Get ComAdd of hoInsideZooms "1/4/2008" to Nothing
		Send Destroy to hoInsideZooms
	Send Destroy to hoChart
	Send ComEndUpdate
End_Procedure
851
How can I change the foreground color for a time unit

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComLevelCount of hoChart to 2
		Set ComFirstVisibleDate of hoChart to "1/1/2008"
		Set ComAllowInsideZoom of hoChart to True
		Set ComAllowResizeInsideZoom of hoChart to False
		Set ComInsideZoomOnDblClick of hoChart to False
		Variant voInsideZoomFormat
		Get ComDefaultInsideZoomFormat of hoChart to voInsideZoomFormat
		Handle hoInsideZoomFormat
		Get Create (RefClass(cComInsideZoomFormat)) to hoInsideZoomFormat
		Set pvComObject of hoInsideZoomFormat to voInsideZoomFormat
			Set ComForeColor of hoInsideZoomFormat to (RGB(255,0,0))
		Send Destroy to hoInsideZoomFormat
		Variant voInsideZooms
		Get ComInsideZooms of hoChart to voInsideZooms
		Handle hoInsideZooms
		Get Create (RefClass(cComInsideZooms)) to hoInsideZooms
		Set pvComObject of hoInsideZooms to voInsideZooms
			Set ComSplitBaseLevel of hoInsideZooms to False
			Set ComDefaultWidth of hoInsideZooms to 18
			Variant voInsideZoom
			Get ComAdd of hoInsideZooms "1/4/2008" to voInsideZoom
			Handle hoInsideZoom
			Get Create (RefClass(cComInsideZoom)) to hoInsideZoom
			Set pvComObject of hoInsideZoom to voInsideZoom
				Set ComAllowInsideFormat of hoInsideZoom to False
			Send Destroy to hoInsideZoom
		Send Destroy to hoInsideZooms
	Send Destroy to hoChart
	Send ComEndUpdate
End_Procedure
850
How can I change the background color for a time unit, in the chart area

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComLevelCount of hoChart to 2
		Set ComFirstVisibleDate of hoChart to "1/1/2008"
		Set ComAllowInsideZoom of hoChart to True
		Set ComAllowResizeInsideZoom of hoChart to False
		Set ComInsideZoomOnDblClick of hoChart to False
		Variant voInsideZoomFormat
		Get ComDefaultInsideZoomFormat of hoChart to voInsideZoomFormat
		Handle hoInsideZoomFormat
		Get Create (RefClass(cComInsideZoomFormat)) to hoInsideZoomFormat
		Set pvComObject of hoInsideZoomFormat to voInsideZoomFormat
			Set ComBackColorChart of hoInsideZoomFormat to (RGB(255,0,0))
		Send Destroy to hoInsideZoomFormat
		Variant voInsideZooms
		Get ComInsideZooms of hoChart to voInsideZooms
		Handle hoInsideZooms
		Get Create (RefClass(cComInsideZooms)) to hoInsideZooms
		Set pvComObject of hoInsideZooms to voInsideZooms
			Set ComSplitBaseLevel of hoInsideZooms to False
			Set ComDefaultWidth of hoInsideZooms to 18
			Variant voInsideZoom
			Get ComAdd of hoInsideZooms "1/4/2008" to voInsideZoom
			Handle hoInsideZoom
			Get Create (RefClass(cComInsideZoom)) to hoInsideZoom
			Set pvComObject of hoInsideZoom to voInsideZoom
				Set ComAllowInsideFormat of hoInsideZoom to False
			Send Destroy to hoInsideZoom
		Send Destroy to hoInsideZooms
	Send Destroy to hoChart
	Send ComEndUpdate
End_Procedure
849
How can I change the background color for a time unit, using EBN files

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComLevelCount of hoChart to 2
		Set ComFirstVisibleDate of hoChart to "1/1/2008"
		Set ComAllowInsideZoom of hoChart to True
		Set ComAllowResizeInsideZoom of hoChart to False
		Set ComInsideZoomOnDblClick of hoChart to False
		Variant voInsideZoomFormat
		Get ComDefaultInsideZoomFormat of hoChart to voInsideZoomFormat
		Handle hoInsideZoomFormat
		Get Create (RefClass(cComInsideZoomFormat)) to hoInsideZoomFormat
		Set pvComObject of hoInsideZoomFormat to voInsideZoomFormat
			Set ComBackColor of hoInsideZoomFormat to |CI$1000000
		Send Destroy to hoInsideZoomFormat
		Variant voInsideZooms
		Get ComInsideZooms of hoChart to voInsideZooms
		Handle hoInsideZooms
		Get Create (RefClass(cComInsideZooms)) to hoInsideZooms
		Set pvComObject of hoInsideZooms to voInsideZooms
			Set ComSplitBaseLevel of hoInsideZooms to False
			Set ComDefaultWidth of hoInsideZooms to 18
			Variant voInsideZoom
			Get ComAdd of hoInsideZooms "1/4/2008" to voInsideZoom
			Handle hoInsideZoom
			Get Create (RefClass(cComInsideZoom)) to hoInsideZoom
			Set pvComObject of hoInsideZoom to voInsideZoom
				Set ComAllowInsideFormat of hoInsideZoom to False
			Send Destroy to hoInsideZoom
		Send Destroy to hoInsideZooms
	Send Destroy to hoChart
	Send ComEndUpdate
End_Procedure
848
How can I change the background color for a time unit

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComLevelCount of hoChart to 2
		Set ComFirstVisibleDate of hoChart to "1/1/2008"
		Set ComAllowInsideZoom of hoChart to True
		Set ComAllowResizeInsideZoom of hoChart to False
		Set ComInsideZoomOnDblClick of hoChart to False
		Variant voInsideZoomFormat
		Get ComDefaultInsideZoomFormat of hoChart to voInsideZoomFormat
		Handle hoInsideZoomFormat
		Get Create (RefClass(cComInsideZoomFormat)) to hoInsideZoomFormat
		Set pvComObject of hoInsideZoomFormat to voInsideZoomFormat
			Set ComBackColor of hoInsideZoomFormat to (RGB(255,0,0))
		Send Destroy to hoInsideZoomFormat
		Variant voInsideZooms
		Get ComInsideZooms of hoChart to voInsideZooms
		Handle hoInsideZooms
		Get Create (RefClass(cComInsideZooms)) to hoInsideZooms
		Set pvComObject of hoInsideZooms to voInsideZooms
			Set ComSplitBaseLevel of hoInsideZooms to False
			Set ComDefaultWidth of hoInsideZooms to 18
			Variant voInsideZoom
			Get ComAdd of hoInsideZooms "1/4/2008" to voInsideZoom
			Handle hoInsideZoom
			Get Create (RefClass(cComInsideZoom)) to hoInsideZoom
			Set pvComObject of hoInsideZoom to voInsideZoom
				Set ComAllowInsideFormat of hoInsideZoom to False
			Send Destroy to hoInsideZoom
		Send Destroy to hoInsideZooms
	Send Destroy to hoChart
	Send ComEndUpdate
End_Procedure
847
How can I display the column using currency format and enlarge the font for certain values
Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Currency" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDef of hoColumn OLEexCellValueFormat to 1
			Set ComFormatColumn of hoColumn to "len(value) ? ((0:=dbl(value)) < 10 ? '<fgcolor=808080><font ;7>' : '<b>') + currency(=:0)"
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "1.23" to Nothing
		Get ComAddItem of hoItems "2.34" to Nothing
		Get ComAddItem of hoItems "9.94" to Nothing
		Get ComAddItem of hoItems "11.94" to Nothing
		Get ComAddItem of hoItems "1000" to Nothing
	Send Destroy to hoItems
End_Procedure
846
How can I highlight only parts of the cells
Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDef of hoColumn OLEexCellValueFormat to 1
			Set ComFormatColumn of hoColumn to "value replace 'hil' with '<fgcolor=FF0000><b>hil</b></fgcolor>'"
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Root" to h
		Get ComInsertItem of hoItems h "Child 1" to Nothing
		Get ComInsertItem of hoItems h "Child 2" to Nothing
		Get ComInsertItem of hoItems h "Child 3" to Nothing
		Set ComExpandItem of hoItems h to True
	Send Destroy to hoItems
End_Procedure
845
How can I get the number of occurrences of a specified string in the cell
Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "" to Nothing
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn
		Get ComAdd of hoColumns1 "occurrences" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComComputedField of hoColumn to "lower(%0) count 'o'"
			Set ComFormatColumn of hoColumn to "'contains ' + value + ' of \'o\' chars'"
		Send Destroy to hoColumn
	Send Destroy to hoColumns1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Root" to h
		Get ComInsertItem of hoItems h "Child 1 oooof the root" to Nothing
		Get ComInsertItem of hoItems h "Child 2" to Nothing
		Get ComInsertItem of hoItems h "Child 3" to Nothing
		Set ComExpandItem of hoItems h to True
	Send Destroy to hoItems
End_Procedure
844
How can I display dates in my format
Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Date" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDef of hoColumn OLEexCellValueFormat to 1
			Set ComFormatColumn of hoColumn to "'<b>' + year(0:=date(value)) + '</b><fgcolor=808080><font ;6> (' + month(=:0) + ' - ' + day(=:0) +')'"
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "1/21/2001" to Nothing
		Get ComAddItem of hoItems "2/22/2002" to Nothing
		Get ComAddItem of hoItems "3/13/2003" to Nothing
		Get ComAddItem of hoItems "4/24/2004" to Nothing
	Send Destroy to hoItems
End_Procedure
843
How can I display dates in short format
Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Date" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComFormatColumn of hoColumn to "shortdate(value)"
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "1/1/2001" to Nothing
		Get ComAddItem of hoItems "2/2/2002" to Nothing
		Get ComAddItem of hoItems "3/3/2003" to Nothing
		Get ComAddItem of hoItems "4/4/2004" to Nothing
	Send Destroy to hoItems
End_Procedure
842
How can I display dates in long format
Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Date" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComFormatColumn of hoColumn to "longdate(value)"
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "1/1/2001" to Nothing
		Get ComAddItem of hoItems "2/2/2002" to Nothing
		Get ComAddItem of hoItems "3/3/2003" to Nothing
		Get ComAddItem of hoItems "4/4/2004" to Nothing
	Send Destroy to hoItems
End_Procedure
841
How can I display only the right part of the cell
Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "" to Nothing
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn
		Get ComAdd of hoColumns1 "Right" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComComputedField of hoColumn to "%0 right 2"
			Set ComFormatColumn of hoColumn to "'"' + value + '"'"
		Send Destroy to hoColumn
	Send Destroy to hoColumns1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Root" to h
		Get ComInsertItem of hoItems h "Child 1" to Nothing
		Get ComInsertItem of hoItems h "Child 2" to Nothing
		Get ComInsertItem of hoItems h "SChild 3" to Nothing
		Set ComExpandItem of hoItems h to True
	Send Destroy to hoItems
End_Procedure
840
How can I display only the left part of the cell
Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "" to Nothing
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn
		Get ComAdd of hoColumns1 "Left" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComComputedField of hoColumn to "%0 left 2"
		Send Destroy to hoColumn
	Send Destroy to hoColumns1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Root" to h
		Get ComInsertItem of hoItems h "Child 1" to Nothing
		Get ComInsertItem of hoItems h "Child 2" to Nothing
		Get ComInsertItem of hoItems h "SChild 3" to Nothing
		Set ComExpandItem of hoItems h to True
	Send Destroy to hoItems
End_Procedure
839
How can I display true or false instead 0 and -1
Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Boolean" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComFormatColumn of hoColumn to "value != 0 ? 'true' : 'false'"
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems true to Nothing
		Get ComAddItem of hoItems false to Nothing
		Get ComAddItem of hoItems true to Nothing
		Get ComAddItem of hoItems 0 to Nothing
		Get ComAddItem of hoItems 1 to Nothing
	Send Destroy to hoItems
End_Procedure
838
Is there any option to print the columns section on each page

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
	Send Destroy to hoChart
	Variant voChart1
	Get ComChart to voChart1
	Handle hoChart1
	Get Create (RefClass(cComChart)) to hoChart1
	Set pvComObject of hoChart1 to voChart1
		Set ComLevelCount of hoChart1 to 2
	Send Destroy to hoChart1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h1
		Get ComAddItem of hoItems "Task 1" to h1
		Send ComAddBar of hoItems h1 "Task" "1/2/2001" "1/4/2001" "K1" Nothing
		Variant h2
		Get ComAddItem of hoItems "Task 2" to h2
		Send ComAddBar of hoItems h2 "Task" "2/5/2001" "2/7/2001" "K2" Nothing
		Send ComAddLink of hoItems "L1" h1 "K1" h2 "K2"
		Set ComLink of hoItems "L1" OLEexLinkStartPos to 0
	Send Destroy to hoItems
	Send ComEndUpdate
	Handle hoPrint
	Get Create (RefClass(cComPrint)) to hoPrint // Import the 'ExPrint 1.0 Control Library' library
		Set ComOptions of hoPrint to "ColumnsOnEveryPage=1"
		Set ComPrintExt of hoPrint to (pvComObject(Self))
		Send ComPreview of hoPrint
	Send Destroy to hoPrint
End_Procedure
837
How do I print the control's content

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h1
		Get ComAddItem of hoItems "Task 1" to h1
		Send ComAddBar of hoItems h1 "Task" "1/2/2001" "1/4/2001" "K1" Nothing
		Variant h2
		Get ComAddItem of hoItems "Task 2" to h2
		Send ComAddBar of hoItems h2 "Task" "1/5/2001" "1/7/2001" "K2" Nothing
		Send ComAddLink of hoItems "L1" h1 "K1" h2 "K2"
		Set ComLink of hoItems "L1" OLEexLinkStartPos to 0
	Send Destroy to hoItems
	Send ComEndUpdate
	Handle hoPrint
	Get Create (RefClass(cComPrint)) to hoPrint // Import the 'ExPrint 1.0 Control Library' library
		Set ComPrintExt of hoPrint to (pvComObject(Self))
		Send ComPreview of hoPrint
	Send Destroy to hoPrint
End_Procedure
836
How can I display icons or images instead numbers
Procedure OnCreate
	Forward Send OnCreate
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Icons" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDef of hoColumn OLEexCellValueFormat to 1
			Set ComFormatColumn of hoColumn to "'The cell displays the icon <img>'+value+'</img> instead ' + value"
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems 1 to Nothing
		Get ComAddItem of hoItems 2 to Nothing
		Get ComAddItem of hoItems 3 to Nothing
	Send Destroy to hoItems
End_Procedure
835
How can I display the column using currency
Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Currency" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComFormatColumn of hoColumn to "currency(dbl(value))"
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "1.23" to Nothing
		Get ComAddItem of hoItems "2.34" to Nothing
		Get ComAddItem of hoItems "0" to Nothing
		Get ComAddItem of hoItems 5 to Nothing
		Get ComAddItem of hoItems "10000.99" to Nothing
	Send Destroy to hoItems
End_Procedure
834
How can I display the currency only for not empty cells
Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Number" to Nothing
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn
		Get ComAdd of hoColumns1 "Currency" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComComputedField of hoColumn to "len(%0) ? currency(dbl(%0)) : ''"
		Send Destroy to hoColumn
	Send Destroy to hoColumns1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "1.23" to Nothing
		Get ComAddItem of hoItems "2.34" to Nothing
		Get ComAddItem of hoItems "0" to Nothing
		Set ComItemBackColor of hoItems (ComAddItem(hoItems,Nothing)) to (RGB(255,128,128))
		Get ComAddItem of hoItems "10000.99" to Nothing
	Send Destroy to hoItems
End_Procedure
833
Is there a function to display the number of days between two date including the number of hours
Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Start" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComWidth of hoColumn to 32
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Get ComAdd of hoColumns1 "End" to Nothing
	Send Destroy to hoColumns1
	Variant voColumns2
	Get ComColumns to voColumns2
	Handle hoColumns2
	Get Create (RefClass(cComColumns)) to hoColumns2
	Set pvComObject of hoColumns2 to voColumns2
		Variant voColumn1
		Get ComAdd of hoColumns2 "Duration" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComComputedField of hoColumn1 to "((1:=int(0:= (date(%1)-date(%0)))) != 0 ? (=:1 + ' day(s)') : '') + (=:1 ? ' ' : '' ) + ((1:=int(0:=((=:0 - =:1 + 1/24/60/60/2)*24))) != 0 ? =:1 + ' hour(s) ' : '' ) + ((1:=round((=:0 - =:1)*60)) != 0 ? =:1 + ' min(s)' : '')"
		Send Destroy to hoColumn1
	Send Destroy to hoColumns2
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "1/11/2001" to h
		Set ComCellValue of hoItems h 1 to "1/14/2001"
		Get ComAddItem of hoItems "2/22/2002 12:00:00 PM" to h
		Set ComCellValue of hoItems h 1 to "3/14/2002 1:00:00 PM"
		Get ComAddItem of hoItems "3/13/2003" to h
		Set ComCellValue of hoItems h 1 to "4/11/2003 11:00:00 AM"
	Send Destroy to hoItems
End_Procedure
832
Is there a function to display the number of days between two date including the number of hours
Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Start" to Nothing
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Get ComAdd of hoColumns1 "End" to Nothing
	Send Destroy to hoColumns1
	Variant voColumns2
	Get ComColumns to voColumns2
	Handle hoColumns2
	Get Create (RefClass(cComColumns)) to hoColumns2
	Set pvComObject of hoColumns2 to voColumns2
		Variant voColumn
		Get ComAdd of hoColumns2 "Duration" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComComputedField of hoColumn to ""D " + int(date(%1)-date(%0)) + " H " + round(24*(date(%1)-date(%0) - floor(date(%1)-date(%0))))"
		Send Destroy to hoColumn
	Send Destroy to hoColumns2
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "1/11/2001" to h
		Set ComCellValue of hoItems h 1 to "1/14/2001 11:00:00 PM"
		Get ComAddItem of hoItems "2/22/2002 12:00:00 PM" to h
		Set ComCellValue of hoItems h 1 to "3/14/2002 1:00:00 PM"
		Get ComAddItem of hoItems "3/13/2003" to h
		Set ComCellValue of hoItems h 1 to "4/11/2003 11:00:00 AM"
	Send Destroy to hoItems
End_Procedure
831
How can I display the number of days between two dates
Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Start" to Nothing
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Get ComAdd of hoColumns1 "End" to Nothing
	Send Destroy to hoColumns1
	Variant voColumns2
	Get ComColumns to voColumns2
	Handle hoColumns2
	Get Create (RefClass(cComColumns)) to hoColumns2
	Set pvComObject of hoColumns2 to voColumns2
		Variant voColumn
		Get ComAdd of hoColumns2 "Duration" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComComputedField of hoColumn to "(date(%1)-date(%0)) + ' days'"
		Send Destroy to hoColumn
	Send Destroy to hoColumns2
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "1/11/2001" to h
		Set ComCellValue of hoItems h 1 to "1/14/2001"
		Get ComAddItem of hoItems "2/22/2002" to h
		Set ComCellValue of hoItems h 1 to "3/14/2002"
		Get ComAddItem of hoItems "3/13/2003" to h
		Set ComCellValue of hoItems h 1 to "4/11/2003"
	Send Destroy to hoItems
End_Procedure
830
How can I get second part of the date
Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Date" to Nothing
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn
		Get ComAdd of hoColumns1 "Second" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComComputedField of hoColumn to "sec(date(%0))"
		Send Destroy to hoColumn
	Send Destroy to hoColumns1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "1/11/2001 10:10:00 AM" to Nothing
		Get ComAddItem of hoItems "2/22/2002 11:01:22 AM" to Nothing
		Get ComAddItem of hoItems "3/13/2003 12:23:01 PM" to Nothing
		Get ComAddItem of hoItems "4/14/2004 1:11:59 PM" to Nothing
	Send Destroy to hoItems
End_Procedure
829
How can I get minute part of the date
Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Date" to Nothing
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn
		Get ComAdd of hoColumns1 "Minute" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComComputedField of hoColumn to "min(date(%0))"
		Send Destroy to hoColumn
	Send Destroy to hoColumns1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "1/11/2001 10:10:00 AM" to Nothing
		Get ComAddItem of hoItems "2/22/2002 11:01:00 AM" to Nothing
		Get ComAddItem of hoItems "3/13/2003 12:23:00 PM" to Nothing
		Get ComAddItem of hoItems "4/14/2004 1:11:00 PM" to Nothing
	Send Destroy to hoItems
End_Procedure
828
How can I check the hour part only so I know it was afternoon
Procedure OnCreate
	Forward Send OnCreate
	Variant voConditionalFormats
	Get ComConditionalFormats to voConditionalFormats
	Handle hoConditionalFormats
	Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats
	Set pvComObject of hoConditionalFormats to voConditionalFormats
		Variant voConditionalFormat
		Get ComAdd of hoConditionalFormats "hour(%0)>=12" Nothing to voConditionalFormat
		Handle hoConditionalFormat
		Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat
		Set pvComObject of hoConditionalFormat to voConditionalFormat
			Set ComBold of hoConditionalFormat to True
		Send Destroy to hoConditionalFormat
	Send Destroy to hoConditionalFormats
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Date" to Nothing
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn
		Get ComAdd of hoColumns1 "Hour" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComComputedField of hoColumn to "hour(%0)"
		Send Destroy to hoColumn
	Send Destroy to hoColumns1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "1/11/2001 10:00:00 AM" to Nothing
		Get ComAddItem of hoItems "2/22/2002 11:00:00 AM" to Nothing
		Get ComAddItem of hoItems "3/13/2003 12:00:00 PM" to Nothing
		Get ComAddItem of hoItems "4/14/2004 1:00:00 PM" to Nothing
	Send Destroy to hoItems
End_Procedure
827
What about a function to get the day in the week, or days since Sunday
Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Date" to Nothing
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn
		Get ComAdd of hoColumns1 "WeekDay" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComComputedField of hoColumn to "weekday(%0)"
		Send Destroy to hoColumn
	Send Destroy to hoColumns1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "1/11/2001 10:00:00 AM" to Nothing
		Get ComAddItem of hoItems "2/22/2002 11:00:00 AM" to Nothing
		Get ComAddItem of hoItems "3/13/2003 12:00:00 PM" to Nothing
		Get ComAddItem of hoItems "4/14/2004 1:00:00 PM" to Nothing
	Send Destroy to hoItems
End_Procedure
826
Is there any function to get the day of the year or number of days since January 1st
Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Date" to Nothing
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn
		Get ComAdd of hoColumns1 "Day since January 1st" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComComputedField of hoColumn to "yearday(%0)"
		Send Destroy to hoColumn
	Send Destroy to hoColumns1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "1/11/2001 10:00:00 AM" to Nothing
		Get ComAddItem of hoItems "2/22/2002 11:00:00 AM" to Nothing
		Get ComAddItem of hoItems "3/13/2003 12:00:00 PM" to Nothing
		Get ComAddItem of hoItems "4/14/2004 1:00:00 PM" to Nothing
	Send Destroy to hoItems
End_Procedure
825
How can I display only the day of the date
Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Date" to Nothing
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn
		Get ComAdd of hoColumns1 "Day" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComComputedField of hoColumn to "day(%0)"
		Send Destroy to hoColumn
	Send Destroy to hoColumns1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "1/11/2001 10:00:00 AM" to Nothing
		Get ComAddItem of hoItems "2/22/2002 11:00:00 AM" to Nothing
		Get ComAddItem of hoItems "3/13/2003 12:00:00 PM" to Nothing
		Get ComAddItem of hoItems "4/14/2004 1:00:00 PM" to Nothing
	Send Destroy to hoItems
End_Procedure
824
How can I display only the month of the date
Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Date" to Nothing
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn
		Get ComAdd of hoColumns1 "Month" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComComputedField of hoColumn to "month(%0)"
		Send Destroy to hoColumn
	Send Destroy to hoColumns1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "1/1/2001 10:00:00 AM" to Nothing
		Get ComAddItem of hoItems "2/2/2002 11:00:00 AM" to Nothing
		Get ComAddItem of hoItems "3/3/2003 12:00:00 PM" to Nothing
		Get ComAddItem of hoItems "4/4/2004 1:00:00 PM" to Nothing
	Send Destroy to hoItems
End_Procedure
823
How can I get only the year part from a date expression
Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Date" to Nothing
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn
		Get ComAdd of hoColumns1 "Year" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComComputedField of hoColumn to "year(%0)"
		Send Destroy to hoColumn
	Send Destroy to hoColumns1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "1/1/2001 10:00:00 AM" to Nothing
		Get ComAddItem of hoItems "2/2/2002 11:00:00 AM" to Nothing
		Get ComAddItem of hoItems "3/3/2003 12:00:00 PM" to Nothing
		Get ComAddItem of hoItems "4/4/2004 1:00:00 PM" to Nothing
	Send Destroy to hoItems
End_Procedure
822
Can I convert the expression to date
Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Number" to Nothing
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn
		Get ComAdd of hoColumns1 "Date" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComComputedField of hoColumn to "date(dbl(%0))"
		Send Destroy to hoColumn
	Send Destroy to hoColumns1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "-1.98" to Nothing
		Get ComAddItem of hoItems "30000.99" to Nothing
		Get ComAddItem of hoItems "3561.23" to Nothing
		Get ComAddItem of hoItems "1232.34" to Nothing
	Send Destroy to hoItems
End_Procedure
821
Can I convert the expression to a number, double or float
Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Number" to Nothing
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn
		Get ComAdd of hoColumns1 "Number + 2" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComComputedField of hoColumn to "dbl(%0)+2"
		Send Destroy to hoColumn
	Send Destroy to hoColumns1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "-1.98" to Nothing
		Get ComAddItem of hoItems "0.99" to Nothing
		Get ComAddItem of hoItems "1.23" to Nothing
		Get ComAddItem of hoItems "2.34" to Nothing
	Send Destroy to hoItems
End_Procedure
820
How can I display dates in long format
Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Date" to Nothing
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn
		Get ComAdd of hoColumns1 "LongFormat" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComComputedField of hoColumn to "longdate(%0)"
		Send Destroy to hoColumn
	Send Destroy to hoColumns1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "1/1/2001 10:00:00 AM" to Nothing
		Get ComAddItem of hoItems "2/2/2002 11:00:00 AM" to Nothing
		Get ComAddItem of hoItems "3/3/2003 12:00:00 PM" to Nothing
		Get ComAddItem of hoItems "4/4/2004 1:00:00 PM" to Nothing
	Send Destroy to hoItems
End_Procedure
819
How can I display dates in short format
Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Date" to Nothing
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn
		Get ComAdd of hoColumns1 "ShortFormat" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComComputedField of hoColumn to "shortdate(%0)"
		Send Destroy to hoColumn
	Send Destroy to hoColumns1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "1/1/2001 10:00:00 AM" to Nothing
		Get ComAddItem of hoItems "2/2/2002 11:00:00 AM" to Nothing
		Get ComAddItem of hoItems "3/3/2003 12:00:00 PM" to Nothing
		Get ComAddItem of hoItems "4/4/2004 1:00:00 PM" to Nothing
	Send Destroy to hoItems
End_Procedure
818
How can I display the time only of a date expression
Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Date" to Nothing
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn
		Get ComAdd of hoColumns1 "Time" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComComputedField of hoColumn to "'time is:' + time(date(%0))"
		Send Destroy to hoColumn
	Send Destroy to hoColumns1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "1/1/2001 10:00:00 AM" to Nothing
		Get ComAddItem of hoItems "2/2/2002 11:00:00 AM" to Nothing
		Get ComAddItem of hoItems "3/3/2003 12:00:00 PM" to Nothing
		Get ComAddItem of hoItems "4/4/2004 1:00:00 PM" to Nothing
	Send Destroy to hoItems
End_Procedure
817
Is there any function to display currencies, or money formatted as in the control panel
Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Number" to Nothing
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn
		Get ComAdd of hoColumns1 "Currency" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComComputedField of hoColumn to "currency(dbl(%0))"
		Send Destroy to hoColumn
	Send Destroy to hoColumns1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems 1.23 to Nothing
		Get ComAddItem of hoItems 2.34 to Nothing
		Get ComAddItem of hoItems 10000.99 to Nothing
	Send Destroy to hoItems
End_Procedure
816
How can I convert the expression to a string so I can look into the date string expression for month's name
Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Number" to Nothing
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn
		Get ComAdd of hoColumns1 "Str" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComComputedField of hoColumn to "str(%0) + ' AA'"
		Send Destroy to hoColumn
	Send Destroy to hoColumns1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "-1.98" to Nothing
		Get ComAddItem of hoItems "0.99" to Nothing
		Get ComAddItem of hoItems "1.23" to Nothing
		Get ComAddItem of hoItems "2.34" to Nothing
	Send Destroy to hoItems
End_Procedure
815
Can I display the absolute value or positive part of the number
Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Number" to Nothing
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn
		Get ComAdd of hoColumns1 "Abs" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComComputedField of hoColumn to "abs(%0)"
		Send Destroy to hoColumn
	Send Destroy to hoColumns1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "-1.98" to Nothing
		Get ComAddItem of hoItems "0.99" to Nothing
		Get ComAddItem of hoItems "1.23" to Nothing
		Get ComAddItem of hoItems "2.34" to Nothing
	Send Destroy to hoItems
End_Procedure
814
Is there any function to get largest number with no fraction part that is not greater than the value
Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Number" to Nothing
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn
		Get ComAdd of hoColumns1 "Floor" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComComputedField of hoColumn to "floor(%0)"
		Send Destroy to hoColumn
	Send Destroy to hoColumns1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "-1.98" to Nothing
		Get ComAddItem of hoItems "0.99" to Nothing
		Get ComAddItem of hoItems "1.23" to Nothing
		Get ComAddItem of hoItems "2.34" to Nothing
	Send Destroy to hoItems
End_Procedure
813
Is there any function to round the values base on the .5 value
Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Number" to Nothing
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn
		Get ComAdd of hoColumns1 "Round" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComComputedField of hoColumn to "round(%0)"
		Send Destroy to hoColumn
	Send Destroy to hoColumns1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "-1.98" to Nothing
		Get ComAddItem of hoItems "0.99" to Nothing
		Get ComAddItem of hoItems "1.23" to Nothing
		Get ComAddItem of hoItems "2.34" to Nothing
	Send Destroy to hoItems
End_Procedure
812
How can I get or display the integer part of the cell
Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Number" to Nothing
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn
		Get ComAdd of hoColumns1 "Int" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComComputedField of hoColumn to "int(%0)"
		Send Destroy to hoColumn
	Send Destroy to hoColumns1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "-1.98" to Nothing
		Get ComAddItem of hoItems "0.99" to Nothing
		Get ComAddItem of hoItems "1.23" to Nothing
		Get ComAddItem of hoItems "2.34" to Nothing
	Send Destroy to hoItems
End_Procedure
811
How can I display names as proper ( first leter of the word must be in uppercase, and the rest in lowercase )
Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComFormatColumn of hoColumn to "proper(%0)"
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "root" to h
		Get ComInsertItem of hoItems h "child child" to Nothing
		Get ComInsertItem of hoItems h "child child" to Nothing
		Get ComInsertItem of hoItems h "child child" to Nothing
		Set ComExpandItem of hoItems h to True
	Send Destroy to hoItems
End_Procedure
810
Is there any option to display cells in uppercase
Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComFormatColumn of hoColumn to "upper(%0)"
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Root" to h
		Get ComInsertItem of hoItems h "Child 1" to Nothing
		Get ComInsertItem of hoItems h "Child 2" to Nothing
		Get ComInsertItem of hoItems h "Chld 3" to Nothing
		Set ComExpandItem of hoItems h to True
	Send Destroy to hoItems
End_Procedure
809
Is there any option to display cells in lowercase
Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComFormatColumn of hoColumn to "lower(%0)"
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Root" to h
		Get ComInsertItem of hoItems h "Child 1" to Nothing
		Get ComInsertItem of hoItems h "Child 2" to Nothing
		Get ComInsertItem of hoItems h "Chld 3" to Nothing
		Set ComExpandItem of hoItems h to True
	Send Destroy to hoItems
End_Procedure
808
How can I mark the cells that has a specified type, ie strings only
Procedure OnCreate
	Forward Send OnCreate
	Variant voConditionalFormats
	Get ComConditionalFormats to voConditionalFormats
	Handle hoConditionalFormats
	Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats
	Set pvComObject of hoConditionalFormats to voConditionalFormats
		Variant voConditionalFormat
		Get ComAdd of hoConditionalFormats "type(%0) = 8" Nothing to voConditionalFormat
		Handle hoConditionalFormat
		Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat
		Set pvComObject of hoConditionalFormat to voConditionalFormat
			Set ComForeColor of hoConditionalFormat to (RGB(255,0,0))
		Send Destroy to hoConditionalFormat
	Send Destroy to hoConditionalFormats
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Root" to h
		Get ComInsertItem of hoItems h "Child 1" to Nothing
		Get ComInsertItem of hoItems h 2 to Nothing
		Get ComInsertItem of hoItems h "Chld 3" to Nothing
		Set ComExpandItem of hoItems h to True
	Send Destroy to hoItems
End_Procedure
807
How can I bold the items that contains data or those who displays empty strings
Procedure OnCreate
	Forward Send OnCreate
	Variant voConditionalFormats
	Get ComConditionalFormats to voConditionalFormats
	Handle hoConditionalFormats
	Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats
	Set pvComObject of hoConditionalFormats to voConditionalFormats
		Variant voConditionalFormat
		Get ComAdd of hoConditionalFormats "not len(%1)=0" Nothing to voConditionalFormat
		Handle hoConditionalFormat
		Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat
		Set pvComObject of hoConditionalFormat to voConditionalFormat
			Set ComBold of hoConditionalFormat to True
		Send Destroy to hoConditionalFormat
	Send Destroy to hoConditionalFormats
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "C1" to Nothing
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Get ComAdd of hoColumns1 "C2" to Nothing
	Send Destroy to hoColumns1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Root" to h
		Get ComInsertItem of hoItems h "Child 1" to Nothing
		Variant hC
		Get ComInsertItem of hoItems h "Child 2" to hC
		Set ComCellValue of hoItems hC 1 to "1"
		Get ComInsertItem of hoItems h "Child 3" to Nothing
		Set ComExpandItem of hoItems h to True
	Send Destroy to hoItems
End_Procedure
806
Can I change the background color for items or cells that contains a specified string
Procedure OnCreate
	Forward Send OnCreate
	Variant voConditionalFormats
	Get ComConditionalFormats to voConditionalFormats
	Handle hoConditionalFormats
	Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats
	Set pvComObject of hoConditionalFormats to voConditionalFormats
		Variant voConditionalFormat
		Get ComAdd of hoConditionalFormats "%0 contains 'hi'" Nothing to voConditionalFormat
		Handle hoConditionalFormat
		Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat
		Set pvComObject of hoConditionalFormat to voConditionalFormat
			Set ComBackColor of hoConditionalFormat to (RGB(255,0,0))
		Send Destroy to hoConditionalFormat
	Send Destroy to hoConditionalFormats
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Root" to h
		Get ComInsertItem of hoItems h "Child 1" to Nothing
		Get ComInsertItem of hoItems h "Child 2" to Nothing
		Get ComInsertItem of hoItems h "Chld 3" to Nothing
		Set ComExpandItem of hoItems h to True
	Send Destroy to hoItems
End_Procedure
805
Is there any option to change the fore color for cells or items that ends with a specified string
Procedure OnCreate
	Forward Send OnCreate
	Variant voConditionalFormats
	Get ComConditionalFormats to voConditionalFormats
	Handle hoConditionalFormats
	Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats
	Set pvComObject of hoConditionalFormats to voConditionalFormats
		Variant voConditionalFormat
		Get ComAdd of hoConditionalFormats "%0 endwith '22'" Nothing to voConditionalFormat
		Handle hoConditionalFormat
		Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat
		Set pvComObject of hoConditionalFormat to voConditionalFormat
			Set ComForeColor of hoConditionalFormat to (RGB(255,0,0))
		Send Destroy to hoConditionalFormat
	Send Destroy to hoConditionalFormats
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Root" to h
		Get ComInsertItem of hoItems h "Child 1" to Nothing
		Get ComInsertItem of hoItems h "Child 1.22" to Nothing
		Get ComInsertItem of hoItems h "Child 2.22" to Nothing
		Set ComExpandItem of hoItems h to True
	Send Destroy to hoItems
End_Procedure
804
How can I highlight the cells or items that starts with a specified string
Procedure OnCreate
	Forward Send OnCreate
	Variant voConditionalFormats
	Get ComConditionalFormats to voConditionalFormats
	Handle hoConditionalFormats
	Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats
	Set pvComObject of hoConditionalFormats to voConditionalFormats
		Variant voConditionalFormat
		Get ComAdd of hoConditionalFormats "%0 startwith 'C'" Nothing to voConditionalFormat
		Handle hoConditionalFormat
		Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat
		Set pvComObject of hoConditionalFormat to voConditionalFormat
			Set ComUnderline of hoConditionalFormat to True
		Send Destroy to hoConditionalFormat
	Send Destroy to hoConditionalFormats
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Root" to h
		Get ComInsertItem of hoItems h "Child 1" to Nothing
		Get ComInsertItem of hoItems h "Child 2" to Nothing
		Get ComInsertItem of hoItems h "SChild 3" to Nothing
		Set ComExpandItem of hoItems h to True
	Send Destroy to hoItems
End_Procedure
803
How can I change the background color or the visual appearance using ebn for a particular column
Procedure OnCreate
	Forward Send OnCreate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Column 1" to Nothing
		Variant voColumn
		Get ComAdd of hoColumns "Column 2" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDef of hoColumn OLEexHeaderBackColor to 16777216
		Send Destroy to hoColumn
		Variant voColumn1
		Get ComAdd of hoColumns "Column 3" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComDef of hoColumn1 OLEexHeaderBackColor to 16777471
		Send Destroy to hoColumn1
		Get ComAdd of hoColumns "Column 4" to Nothing
	Send Destroy to hoColumns
End_Procedure
802
How can I change the foreground color for a particular column
Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Column 1" to Nothing
		Variant voColumn
		Get ComAdd of hoColumns "Column 2" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDef of hoColumn OLEexHeaderForeColor to 8439039
		Send Destroy to hoColumn
		Get ComAdd of hoColumns "Column 3" to Nothing
	Send Destroy to hoColumns
End_Procedure
801
How can I change the background color for a particular column
Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Column 1" to Nothing
		Variant voColumn
		Get ComAdd of hoColumns "Column 2" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDef of hoColumn OLEexHeaderBackColor to 8439039
		Send Destroy to hoColumn
		Get ComAdd of hoColumns "Column 3" to Nothing
	Send Destroy to hoColumns
End_Procedure